procedure TForm1.FormCreate(Sender: TObject);
var
  h: hcursor;
begin
  h := LoadCursorFromFile('C:\windows\cursors\sizenwse.ani');
  Screen.Cursors[1] := h;
  Form1.Cursor := 1;
end;