[nano_bot]

Программа загружает на ФТП файл. Чтобы главная форма не подвисала, сделал загрузку в потоке

Код:

 mythread=class(tthread)
  private
  public
  procedure execute; override;
  end;
var
  Form1: TForm1;
  potok: mythread;
....
procedure TForm1.Button2Click(Sender: TObject);
begin
potok:=mythread.Create(true);
potok.Priority:=tpHigher;
potok.FreeOnTerminate:=true;
potok.Resume;
end;

procedure mythread.execute;
begin
form1.idftp1.Connect(true);
form1.idftp1.Put('C:\123.ico','/temp/123.ico');
form1.idftp1.disconnect;
end;

Все работает, все загружается, но после закрытия проги вылетает ошибка "Недопустимый дескриптор окна 1400"