TThread вылетают ошибки

[Belfigor]

создаю в приложении два потока

TMainLoop = class(TThread)
  private

  protected
    procedure Execute; override;
  end;

  TTestLoop = class(TThread)
  private

  protected
    procedure Execute; override;
  end;

При создании формы указываю:

Var
  MainLoop: TMainLoop;
  TestLoop: TTestLoop;
Begin
  //Çàïóñêàåì MainLoop
  MainLoop:=TMainLoop.Create(true);
  MainLoop.FreeOnTerminate:=true;
  MainLoop.Priority:=tpLower;
  MainLoop.Resume;

  //Çàïóñêàåì TestLoop
  TestLoop:=TTestLoop.Create(true);
  TestLoop.FreeOnTerminate:=true;
  TestLoop.Priority:=tpLower;
  TestLoop.Resume;
End;

далее в самом коде указываю:

Procedure TMainLoop.Execute;
var testt:integer;
Begin
    //CriticalSection.Enter;
    testt:=0;
    While 1=1 do Begin
        While InWork Do Begin
            Form1.label1.Caption:=inttostr(testt);
            testt:=testt+1 ;
            sleep(10)
        End;
        sleep(10);
    End;
    //CriticalSection.Leave;
End;

Procedure TTestLoop.Execute;
var i:integer;
Begin
    //CriticalSection.Enter;
    i:=0;
    While 1=1 do Begin
        While InDraw Do Begin
            Form1.label18.Caption:=inttostr(i);
            i:=i+1;
            sleep(10)
        End;
        sleep(10);
    End;
    //CriticalSection.Leave;
End;

и создаю две кнопки которые и управляют состояниями потоков.

procedure TForm1.Button1Click(Sender: TObject);
begin
    InWork:= NOT InWork;
    if InWork then begin
        Button1.Caption:='Stop'
    end else begin
        Button1.Caption:='Start'
    end;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
   InDraw:= NOT InDraw;
    if InDraw then begin
        Button7.Caption:='Stop'
    end else begin
        Button7.Caption:='Start'
    end;
end;

Все работает, потоки независимо друг от друга запускаются и останавливаются по нажатию на свои кнопки, через некоторое время выводится сообщение прикрепленное на скрине внизу.
Подскажите как с этим бороться

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

Синхронизация где?

[mihali4]

Изучите примерчик, который есть у вас под руками в ...\Borland\Delphi7\Demos\Threads

[Belfigor]

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

Синхронизация где?

А как мне осуществить вывод с помощью синхронизации? Пытаюсь сделать так:

procedure TTestloop.DoWork(i:integer);
begin
    Form1.label1.Caption:=inttostr(i);
end;

procedure TMainLoop.DoWork(i:integer);
begin
    Form1.label18.Caption:=inttostr(i);
end;

Procedure TMainLoop.Execute;
var i:integer;
Begin
    //CriticalSection.Enter;
    i:=0;
    While 1=1 do Begin
        While InWork Do Begin
            Synchronize(DoWork(i));
            i:=i+1;
            sleep(10)
        End;
        sleep(10);
    End;
    //CriticalSection.Leave;
End;

Procedure TTestLoop.Execute;
var i:integer;
Begin
    //CriticalSection.Enter;
    i:=0;
    While 1=1 do Begin
        While InDraw Do Begin
            Synchronize(DoWork(i))  ;
            i:=i+1                ;
            sleep(10)              ;
        End;
        sleep(10);
    End;
    //CriticalSection.Leave;
End;

мне пишет
[Error] Unit1.pas(269): There is no overloaded version of 'Synchronize' that can be called with these arguments
[Error] Unit1.pas(285): There is no overloaded version of 'Synchronize' that can be called with these arguments

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

Изучите примерчик, который есть у вас под руками в ...\Borland\Delphi7\Demos\Threads

Я пытался

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

метод синхронизации это метод без параметров
используйте или глобальные переменные или поля класса TThread(дополнительно свои обьявите)

[Belfigor]

Спасибо! Счетчики снова побежали, подожду минут 10 надеюсь теперь крашей не будет. А не подскажете как использовать поля класса TThread, в смысле как их дополнительно объявить?

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

TMainLoop = class(TThread)
  private
    FInt:Integer;//насчет F это привычка, да и хороший тон.
  protected
    procedure Execute; override;
  end;

теперь эта переменная доступна внутри Execute этого класса
и так же других методов этого класса(DoWork например)

[Belfigor]

Большое спасибо, возьму этот метод на вооружение :3.

[Swarog]

Уважаемые, подкинте мысль, щас попробую более менее понятно объяснить структуру проекта

есть форма консоли

  TConsole = class(TForm)
   ....
  public
   procedure Write(Text: string);
   Function InputText(): string;
   Function InputInt(base: byte = 10; issign: boolean = true): integer;
  end;

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

TThreadMachine = class(tThread)
  private
   frun: boolean;
  public
   procedure StopMachine;
   procedure Execute; override;
   Property RunningIs:boolean read frun;
end;

PPStrOut = procedure (text: string) of object;
PFStrIn  = Function(): string  of object;
PFIntIn  = Function(base: byte; issign: boolean): Integer  of object;

Strout, ErrorOut: PPstrOut;
Strin : PFStrIn;
IntIn : PFIntIn;

procedure TThreadMachine.Execute;
begin
if frun then exit;
frun := true;
Pusk();
// вот тут вся загвозка
ErrorOut('Сообщение. Выполнение программы завершено.'); //как здесь обеспечить синхронизацию
frun := false;
end;

если к консоли обращаться из обычного потока то все нормально, обращаюсь из потока начинается... загрузка проца 100%, и ни чего не выводит.

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