[novashdima]

Наверняка уже много раз тема обсуждалась, но хочу попросить совета по правильной реализации задачи в словах и примерах кода.
Итак, программа занимается обработкой данных, это может занять продолжительное время, поэтому нужна кнопка приостановки процесса.
Во время обработки данных происходит изменение компонентов Gauge и Memo.
Открыв проект в новой версии студии получаю ошибку при компилировании, последняя ли это версия проекта и было ли что-то после нормальной сборки непонятно (давно занимался проектом).
Итак, вопросы по реализации:
при остановке процесса поток приостанавливать с возможностью продолжения или полной остановки, в первом случае вызываем resume, во втором Terminate?
в данный момент компилятор ругается на функцию синхронизации.
Напишите пример взаимодействия, описания и выполнения действий, у меня пока так реализовано:

Код:

type
  MyThread = class(TThread)
  protected
    CriticalSection: TCriticalSection;
    procedure UpdateMemo(Text: string);
    procedure UpdateGauge(Position: Integer);
    procedure Execute; override;
    procedure Analys;
  end;

var
AnalysThread: MyThread;

procedure TForm1.FormCreate(Sender: TObject);
begin
  try
    AnalysThread := MyThread.Create(True);
    AnalysThread.FreeOnTerminate := False;
    AnalysThread.Priority := tpLower;
    //.....
end;

procedure TForm1.StartProcessClick(Sender: TObject);
begin
  AnalysThread.Resume;
  //.....
end;

procedure TForm1.StopProcessClick(Sender: TObject);
begin
  AnalysThread.Terminate;
  //....
end;

procedure MyThread.Analys;
begin
  try
   if AnalysThread.Terminated then Exit;
   CriticalSection.Enter;
   //....
   Synchronize(UpdateMemo(StringList.Text));
   //....
  finally
  CriticalSection.Leave;
  end;
end;

procedure MyThread.Execute;
begin
  inherited;
  if not AnalysThread.Terminated then
    AnalysThread.Synchronize(Analys);
end;

procedure MyThread.UpdateGauge(Position: Integer);
begin
  Form1.Gauge.Progress := Position;
end;

procedure MyThread.UpdateMemo(Text: string);
begin
  Form1.Memo.Text := Text;
  Form1.Memo.Refresh;
end;

Для начала имхо надо вместо двух кнопок для начала/остановки обработки сделать одну и проверять состояние потока (Suspend/Terminate?).
И мне не нравится взаимодействие с потоками в процедуре анализа... в общем внимательно выслушаю предложения по приведению кода в нормальный вид и главное рабочий.