TmeinProc = Procedure(paramater : string) of object;
TMeinThread=class(TThread)
private
  fmeinProc : TmeinProc;
public
  procedure irgendwas;
  property OnMeinProc : TmeinProc read fmeinProc write fmeinProc;
end;

//...

procedure TmeinThread.irgendwas;
begin
  fmeinProc('text'); <- Synchronize ???
end;

//.. in der main
TfrmMain = class(TForm)
//...
public
  procedure MeinProc(paramater : string);
end;

Procedure TfrmMain.Formcreate;
begin
 fMeinThread.OnMeinProc = MeinProc;
end;