Проблема

[eldar]

Вот сделал
ну пишент вот эти ошибки

[Error] Unit1.pas(29): Undeclared identifier: 'Terminate'

Вот код

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
While not Terminate do
  begin
    for i:=1 to 15000 do               
application.ProcessMessages
sleep(1)
      begin
        sleep(1);
        application.ProcessMessages;
      end;
 
  end;
end;
end.

[alexBlack]

Напишите так:

While not Application.Terminated do
...

[BOBAH13]

Собрали все посты в кучу и получили черт знает что. Я писал Terminate, если бы вы вчитались в пост, для того что там используется отдельная нить ( поток TThread ) а у него свой-во которое говорит что потоко работает или должен прикратить свое выполнение Terminate его обзывают. А вы чтот напихали все в кучу. Имхо я бы такой код, который вы написали, в жизни бы не использовал нигде, прога от этого будет глюкнутой до ужаса. Тем более не ясно что и зачем тут пишется... по логике несколько блоков ( begin end ) просто напросто отсутствует а так же цикл безконечный... вообщем думаю ясно куда вам идти и что читать.