[bistriy]

Сообщение от NumLock

ну поток наверное создать нужно

Привожу пример кода с самого начала :

Код:

var
  MyClientThread: TMyClientThread;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  MyClientThread:=TMyClientThread.Create(true);
  MyClientThread.FreeOnTerminate:=true;
  MyClientThread.Priority:=tpLower;
  MyClientThread.Resume;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  MyClientThread.Terminate;
end;

procedure TMyClientThread.Execute;
begin
while Terminated do
begin
ShowMessage('Вы закрыли поток');
end;
end;
......

И после нажатия Button1 вываливаеться ошибка.
ПОчему ошибка ?