ошыбка Project vk_id.exe raised exception class eoserror with message System error

[Pein95]

код потока:

unit id_parse_Unit;

interface

uses
  Classes, SysUtils;

type
  Id_parse = class(TThread)
  private
    { Private declarations }
  protected
    procedure memoadd(url:string; acc:string);
    function parse(code:string):string;
    function get_code(id:string):string;
    procedure Execute; override;
  end;

implementation

uses mainunit,strutils;

procedure Id_parse.Execute;
var j:integer;//разунок
cod:string;//код сайту
init:string; // дані про користувача

begin
try
for j :=strtoint(form3.Edit1.Text) to strtoint(form3.Edit2.Text)  do
  begin
    cod:=get_code(inttostr(j));
    init:=parse(cod);
    memoadd('http://vkontakte.ru/id'+inttostr(j),init);

  end;
finally

end;


end;

function Id_parse.get_code(id: string): string;
begin
result:=form3.IdHTTP1.Get('http://vkontakte.ru/id'+id);
end;

procedure Id_parse.memoadd(url, acc: string);
begin
form3.Memo1.Lines.Add(url+' '+acc);
end;

function Id_parse.parse(code:string): string;
var
bg:string;
en:string;
i:integer;
b_number:integer;
e_number:integer;
begin
  form3.codememo.lines.add(code);
  bg:='<title>';
  en:='</title>';

  b_number:=0;
  e_number:=0;

  for i := 1 to form3.CodeMemo.Lines.Count-1 do
  begin
    b_number:=posex(bg,form3.CodeMemo.Lines.Strings[i]);
    if b_number>0 then break;
  end;

  for I := 1 to form3.CodeMemo.Lines.Count-1 do
    begin
      e_number:=posex(en,form3.CodeMemo.Lines.Strings[i]);
      if e_number > 0  then    break;
    end;

  b_number:=b_number+7;

  result:=copy(form3.CodeMemo.Lines.Strings[i],b_number,e_number-b_number);
  form3.CodeMemo.Clear;


end;

end.

код главного модуля:

unit MainUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdCookieManager, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP;

type
  TForm3 = class(TForm)
    Memo1: TMemo;
    Edit1: TEdit;
    Button: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Startbtn: TButton;
    SaveDialog1: TSaveDialog;
    IdCookieManager1: TIdCookieManager;
    IdHTTP1: TIdHTTP;
    CodeMemo: TMemo;
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure StartbtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation
uses id_parse_unit;

{$R *.dfm}

procedure TForm3.FormCreate(Sender: TObject);
begin
form3.IdHTTP1.HandleRedirects:=true;
form3.IdHTTP1.CookieManager:=form3.IdCookieManager1;
end;

procedure TForm3.FormShow(Sender: TObject);
begin
edit1.SetFocus;
end;

procedure TForm3.StartbtnClick(Sender: TObject);
var
ob:id_parse;
begin
ob:=id_parse.Create(false);
ob.Resume;
ob.Priority:=tpnormal;

end;

end.

после того как хочу закрыть окно программы такая ошыбка:
Project vk_id.exe raised exception class eoserror with message 'System error Code:1400. Недопустимый дескриптор окна'

знаю код не очень(мягко сказано)
но помогите если не лень)
Зарание спасибо)

[veniside]

Сходите в магазин, купите грифельную доску, мел, и 100 раз напишите вот такое предложение:

"Я не буду вызывать VCL код в контексте дополнительных потоков."

[Stilet]

"Я не буду вызывать VCL код в контексте дополнительных потоков."

Ой, да прям уж так...
Для начала нужно хотя бы попробовать останавливать поток при OnClose главной формы.

[Pein95]

спс Stilet но не помогло(

[Pein95]

нет ни у кого больше идей?

[Alter]

Есть, перенести idHTTP в поток, общаться через события, установка дополнительных данных через пользовательские свойства потока.

Пример даже вам сделал, чтобы не быть голословным и с ЧСВ

[Pein95]

спс очень) помогло)