Réponse acceptée !
Salut,
De mémoire il y a plein de sources sur CS qu'ils font ca : si seulement tu avais cherché
.
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
Var
TexteRecu:String;
begin
TexteRecu:=ServerSocket1.Socket.ReceiveText;
If TexteRecu='Action1' then
Begin
{Action1}
End;
end;