//çok gerekli bir kod
procedure Delay(ms : longint);
var TheTime : LongInt;
begin
   TheTime := GetTickCount + ms;
   while GetTickCount < TheTime do
   Application.ProcessMessages;
end;
//test
procedure TForm1.Button1Click(Sender: TObject);
 begin
   ShowMessage('Start');
   Delay(2000);//2sn
   ShowMessage('End');
 end;