TJobThread = class(TThread)
  private
    fTestCmd : TCommandHandling;
    fTestSocket : TCustomWinSocket;
  ...
    Procedure SyncOutputJob;
  ...
  end;


procedure TJobThread.SyncOutputJob;
begin
  if Assigned(fProcCommand) then
    fProcCommand(fTestSocket,fTestCmd);
end;

procedure TDTSJobThread.Execute;
begin
  inherited;
...
        fTestCmd := cmd;
        fTestSocket := TCustomWinSocket(fJobList.Objects[0]);
        Synchronize(SyncOutputJob);
...
end;