Проблемы поток+таймер, вопрос см в нутри

[Des]

В общем создал поток

type
TSearchjj = class (TThread)
private
protected
public
    procedure jj;

end;

в OnCreate формы пишу как полагается

Searchjj:=TSearchjj.Create(true);
Searchjj.FreeOnTerminate:=false;
Searchjj.Priority:=tpNormal;

а вот когда мой таймер включает

procedure TForm1.timer_updTimer(Sender: TObject);
begin
if timer_upd.Tag <> 3 then begin

    if timer_upd.Tag = 1 then begin
      LabelRename.Resume;
      LabelRename.yaga;
    end;

    if timer_upd.Tag = 0 then begin
      Searchjj.Resume;
      Searchjj.jj;
    end;

сам поток

procedure TSearchjj.jj;
var
found_jj: string;
found_jj_pos1, found_jj_pos2: Integer;
begin
Form1.timer_upd.Enabled:=false; {останавливаем таймер чтоб не бурагозил}
if guest_adress <> '' then begin {если мы не пустые в Edit1 то}
try
Form1.memo_found.Text:=Form1.http1.Get(guest_adress);
except on stay : Exception do begin
programmhalt; {если что делаем ноги пока не образовось исключение}
Exit;
end;
end;

Когда делаю трассировку по F7, собственно делфя мне показывает "ошибку" (Project bb.exe raised exception class EAbstractError with message 'Abstract Error'. Process stoped. Use Step or Run to continue). А что самое интересное, ошибка появляется не на одном месте, а на первых 0-5 строках от begin тоесть всегда по разному что не менее интересно, курсор не встает на Begin или еще куда. а когда я опять жму F7 то курсор нормально переходит как не в чем не бывало на следующую строку

[Des]

Извиняюсь =) ошибка появляется на процедуре procedure TSearchjj.jj; тоесть сразу же как включает её таймер

[Kotofff]

Напиши полностью как TSearchjj создаешь.

type
TSearchjj = class (TThread)
private
protected
public
    procedure jj;

end;

Маловато... скорее тут ошибка

[Des]

unit Unit3;

interface
uses Classes, unit1;
type
TLabelRename = class (TThread)
private
    procedure RandomAdress;
protected

public
    procedure yaga; override;
end;
                        {SEARCH}
type
TSearchjj = class (TThread)
private
protected
public
    procedure jj;
end;
procedure LogIn;


var
LabelRename: TLabelRename;
Searchjj: TSearchjj;

первый поток, работает изумительно и он не мешает я так думаю второму, потому что во втором Searchjj стоит запуск первого ЛэйблРенейма (Resume)

[Пепел Феникса]

интерестно а вообще то в потоках идет метод Execute разве можно его переименновывать?
и кстати о методах синхронизации кто должен думать?
если у тя в потоке идет обращение к компонентам формы

[Des]

Сообщение от Пепел Феникса

интерестно а вообще то в потоках идет метод Execute разве можно его переименновывать?

так мыж процедуру сами вроде как создаем

Сообщение от Пепел Феникса

и кстати о методах синхронизации кто должен думать?
если у тя в потоке идет обращение к компонентам формы

мм а в моем примере где код синхронизации надо?, в конце Search у меня стоит синхронизация на вторую процедуру, в которой в свою очередь стоит на третью. лесенка в 4 процедуры от (Search.xxxx(4)) но там все работает в порядке, после этого сообщения об ошибки, программа раобтает как и должна, но что за ошибка и к чему она вообще