[Snake22]

как можно корректно это сделать подскажите?
а то вот если использовать такую фигню то почемуто всё время закрываеться окошко showmesage,и дальше по циклу опять оно вылазиет и закрываеться и тд.

Код:

for i:=0 to 999 do
if i>50 then begin
   showmessage('упс!зависло,пока...');
   close;
   end

как то сделать надо чтоб close закрыл не шоумессадж а саму программку