Skrytie a zobrazenie kurzora.

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowCursor(False); //skryje kurzor
 Sleep(1000);
 ShowCursor(True); // zobrazí kurzor
end;