[Sr_Sombrero]

Hola! Estoy haciendo un programa que envía una lista a una web mediante Get aunque tal vez sería mejor usar POST, pero como la web la hace otro estoy tratando de ver si puedo hacer que funcione con GET antes de pedir que la cambie a método POST.

¿Es posible enviar varios GET sucesivos sin tener que reconectar? Me pasa que conecto, envio el GET con sendtext y si quiero enviar otro GET sin cerrar e iniciar una nueva conexión me sale error.

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Button1.Caption = 'Conectar' then
    ClientSocket1.Active:= True;
  else
  if Button1.Caption = 'Desconectar' then
    ClientSocket1.Active:= False;
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Button1.Caption:= 'Desconectar';
end;

procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Button1.Caption:= 'Conectar';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ClientSocket1.Socket.SendText(
  'GET http://lalala.com/add.php?lista=' + edit1.text + #13#10 +
  'HTTP/1.0' + #13#10 +
  'Accept: */*' + #13#10 +
  'User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)' + #13#10 +
  'Host: ' + ClientSocket1.Host + #13#10 +
  'Pragma: no-cache'+#13#10#13#10);
end;