void __fastcall TForm1::FormCreate(TObject *Sender) { Screen->Cursors[1] = LoadCursorFromFile("C:\\prueba.ico"); Screen->Cursor = 1; }