Thread Cannot call Start on a running or suspended thread hatası

[Jakarta2]

Cevaplarınız için teşekkür ederim. Bu şekilde değiştirdim. İstediğim bu veriler alınırken donma olmamasıydı...

type
  TGetAyarThread = class(TThread)
 private
   FForm: TForm1;
 protected
   procedure Execute; override;
   procedure UpdateUI;
 public
   constructor Create(AForm: TForm1);
 end;

constructor TGetAyarThread.Create(AForm: TForm1);
begin
 inherited Create(True);
 FreeOnTerminate := True;
 FForm := AForm;
end;

procedure TGetAyarThread.Execute;
begin
 FForm.ayarurungetir;
 Synchronize(UpdateUI); 
end;

procedure TGetAyarThread.UpdateUI;
begin
 ShowMessage('Veriler alındı!');
end;

procedure TForm1.Image3Click(Sender: TObject);
var
 AyarThread: TGetAyarThread;
begin
 askmem.Lines.Clear;
 amsmem.Lines.Clear;
 adumem.Lines.Clear;
   AyarThread := TGetAyarThread.Create(Self);
   AyarThread.Start; // Thread'i başlat
 memosirala(askmem);
 memosirala(amsmem);
 memosirala(adumem);
end;