1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

function ThreadFkf( x:Pointer ): ....
   var Form2: TFormThread;
begin
   Form2 := TFormThread.Create(...);

   while TRUE do begin end;   // kann ja nicht funktionieren, da das System durch die while-schleife blockiert wird
                                          // aber, was muss ich machen, damit die Form/der Thread bis zum schliessen der Form bestehen bleiben
                                          // und auf die unterschiedlichen Ereignisse reagieren können

   Form2.Free;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

function TMainForm.ButtonClick.....
begin

  Application.Initialize;                                                
  Application.CreateForm(TFormThread, Form2);
  Application.Run;

end;					

1:
2:
3:
4:
5:
6:
7:
8:

function TMainForm.ButtonClick..... 
begin 

  Application.Initialize;                                                 
  Application.CreateForm(TFormThread, Form2); 
  Application.Run; 

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

IPConnection = Class
IP: TClientSocket
xy: Integer;
..
..
..
end;


function ThreadFunction( p: Pointer )....
   var IP: IPConnection;
begin
   IP := IPConnection.Create;
   
   IP.IP.Active := TRUE;
   // so was mach ich jetzt? gibt es eine Möglichkeit den thread auf bestimmte Ereignisse warten zu lassen?
   // die Verbindung soll ja dauernd bestehen bleiben, und nicht gleich wieder terminiert werden, also
   // eine Schleife
   while ...
      // ????????????
   end;// while

end;					

1:
2:
3:

  Application.Initialize;
  Application.CreateForm(TTestForm, TestForm);
  Application.Run;					

1:
2:
3:
4:
5:
6:

function TMainForm.ButtonClick.....  
begin  
  Application.Initialize;                                                  
  Application.CreateForm(TFormThread, Form2);  
  Application.Run;  
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

var
  DataStringStream : TStringStream;
begin
  fLocked := True;
  try
    DataStringStream := TStringStream.Create('');
    try
      DataStringStream.CopyFrom(AData, AData.Size);
      EnterCriticalSection(fLock);
      try
        fReceivedData.Add(FormatDateTime('hh:nn:ss:zzz', Now) + ' - ' + ABinding.PeerIP + ' - ' + DataStringStream.DataString);
      finally
        LeaveCriticalSection(fLock);
      end;
    finally
      DataStringStream.Free;
    end;
  finally
    fLocked := False;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TMainForm.timerUpdateTimer(Sender: TObject);
var
  TempList         : TStringlist;
begin
  if (fReceivedData.Count > 0) then begin
    // Es wurden neue SQL - Befehle abgefangen, die noch nicht in die
    // Memo - Komponente uebernommen wurden.
    TempList := TStringlist.Create;
    try
      EnterCriticalSection(fLock);
      try
        if fLocked then Exit;
        TempList.Assign(fReceivedData);
        fReceivedData.Clear;
      finally
        LeaveCriticalSection(fLock);
      end;
      memoSQLMonitor.Lines.AddStrings(TempList);
    finally
      FreeAndNil(TempList);
    end;
  end;
end;					

1:

In der while-Schleife deiner Thread-Funktion (z.B. TThread.Execute) fragst du ab, ob Nachrichten da sind.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function  threadfunction
begin
   Form2 := TForm2.create;
   Form2.Socket.Active := TRUE;
   // was nun? ich möchte den Thread nicht beenden, will auf daten vom Server warten (OnRead - Event ???)
   while XYZ do begin
      if Socket.SocketReceiveLen > 0 then begin           // keine ahnung obs funktioniert, hab ich noch nicht ausprobiert
          Socket.SocketRecieveBuffer(Buffer....);           // aber da könnte ich es gleich über WinSock machen
          Memo1.Lines.Add( Buffer );
      end
      else Sleep(100)
   end;
end;					

1:
2:
3:

Form2 = class(TForm)
..
   Socket: TClientSocket