thnx guys but this not what i mean
i give exeemple in c++ and me need hhim in language pascal
work with the time
thats not the finall result because half of the pper triangle and over time the lines of the upper triangle decrease and after an hour te triangle becomes at the bootom
im sorry about my english because used google traduction
and thx guys for your times
uses
Forms, Controls, sysutils;
procedure ShowHourglassCursor(aMSPeriod: Cardinal);
var
oldCursor: TCursor;
begin
oldCursor:=Screen.Cursor;
try
Screen.Cursor:=crHourGlass;
Sleep(aMSPeriod); // do some work
finally
Screen.Cursor:=oldCursor;
end;
end;