[Neftali [Germán.Estévez]]

A ver, he buscado el primer ejemplillo que tenía a mano y en ese en concreto utilizo esta función:

Código Delphi [-]
//: Permite enviar un comando a un Socket.
function SendCommand(ASocket: TCustomWinSocket; ACommand:  TSocketCommand;
                     AParams: array of string):Boolean;
var
  Str, StrParams:String;
  i:Integer;
begin

  // Por defecto...
  Result := False;
  StrParams := '';

  // Está activo?
  if (ASocket.Connected) then begin

    Debug.LogSocket('Enviando comando: ' + SocketCommandToStr(ACommand));

    // Recorrido
    for i := Low(AParams) to High(AParams) do begin
      StrParams := StrParams + Aparams[i] + CHAR_MESSAGE_SEP;
      Debug.LogSocket('  ' + Aparams[i]);
    end;

    // enviar comando...
    Str := SocketCommandToStr(ACommand);
    // Añadir parametros
    Str := Str + StrParams;
    // enviar
    ASocket.SendText(Str);
    Result := True;
  end;
end;

A parte de las líneas de Debug (que es para una herramienta interna) y el SocketCommandToStr (que lo único que hace en convertir un enumerado en String), como ves básicamente lo que hago es usar:

ASocket.SendText(Str)