tmyresult = procedure(const aList : TStrings) of object;


TmyThread = class(TThread)
 private
   fresultproc : tmyresultproc;
 public
 constructor Create(const aresultproc : tmyresult);
 procedure ResultThread;
 procedure execute ; override;
end;


constructor TmyThread.Create(const aresultproc : tmyresult);
begin
 inherited Create(false);
 fresultproc := aresultproc;
end;


procedure TmyThread.execute ;
begin
 while not terminated do
 begin
   // tu was
 end;
 synchronize(ResultThread);
end;

procedure TmyThread.ResultThread;
begin
 if assigned(fresultproc) then
  fresultproc(FResultstringlist);

end;

// in Form
 procedure tmyform.resultThread(const aList : TStrings);
 begin
  //tue was mit alist
 end;


//Aufrufen mit :

TmyThread.create(myForm.resultThread);