Определение клиента TServerSocket

[wowsel]

Здравствуйте.
Пишу тест на delphi с использованием выше названных компонентов, возник такой вопрос: Клиент соединяется с серверов, отправляет ему нужные данные и должен получить ответ, как серверу отправить ответ именно нужному клиенту а не через перебор всем?
Клиент

procedure TMainform1.csConnect(Sender: TObject; Socket: TCustomWinSocket);
var
  mydate: Tdatetime;
  formatteddatetime: string;
begin
  mydate := Now;
  // Получаем текущее время

  DateTimeToString(formatteddatetime, 'c', mydate);
  // Переводим в строку
  debug1.log.Lines.Add(formatteddatetime + ': Соединение с сервером - ' +
      Socket.RemoteAddress + '  установлено.');
       cs.Socket.SendText('$N1');

end;

Сервер

procedure TForm1.sssClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
  w,s: string;
  h,i,t,n:integer;
begin
  { сохраняем в s присланную нам строку }
  s := Socket.ReceiveText;
  if Copy(s, 1, 2) = '$N' then
  begin
    Delete(s, 1, 2);
    n:=StrToInt(s);
    case n of
    1: begin ??????
    end;

в 1: begin нам нужно отправить именно тому клиенту кто прислал некоторую строчку, подскажите как. Думаю по поводу sss.Socket.SocketHandle но ничего в голову не приходит.

[Пепел Феникса]

если надо отправить именно обратно, то кто мешает в событии использовать тот самый Socket?

[wowsel]

Сообщение от Пепел Феникса

если надо отправить именно обратно, то кто мешает в событии использовать тот самый Socket?

Можно поподробней? С сетевыми технологиями знаком не долго, знаю только

    for k := 0 to sss.Socket.ActiveConnections-1 do
    sss.Socket.Connections[k].SendText('#N');

Это рассылает всем клиентам, а как определить именно того кто прислал и отослать ему?

[Пепел Феникса]

procedure TForm1.sssClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
  w,s: string;
  h,i,t,n:integer;
begin
  { сохраняем в s присланную нам строку }
  s := Socket.ReceiveText;
  if Copy(s, 1, 2) = '$N' then
  begin
    Delete(s, 1, 2);
    n:=StrToInt(s);
    case n of
    1: begin 
         Socket.SendText('Choise 1');

в событии OnClientRead, переменная Socket это клиент которые отправил данные(точнее чьи данные надо получить), используя эту переменную можно тут же отправить данные обратно.

[wowsel]

Сообщение от Пепел Феникса

procedure TForm1.sssClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
  w,s: string;
  h,i,t,n:integer;
begin
  { сохраняем в s присланную нам строку }
  s := Socket.ReceiveText;
  if Copy(s, 1, 2) = '$N' then
  begin
    Delete(s, 1, 2);
    n:=StrToInt(s);
    case n of
    1: begin 
         Socket.SendText('Choise 1');

в событии OnClientRead, переменная Socket это клиент которые отправил данные(точнее чьи данные надо получить), используя эту переменную можно тут же отправить данные обратно.

Спасибо огромное, будем пробовать.