Recibir respuesta de un servidor

[dec]

Hola de nuevo a todos,

Aquí lo que podría ser un ejemplo de lo que digo en mi anterior post:

Código Delphi [-]
uses
  // Indy components
  IdURI, IdHttp;

procedure TForm1.Button1Click(Sender: TObject);
var
  Http: TIdHttp;
  URI, Response, User, EncodedUser: string;
begin
  Http := TIdHttp.Create();

  User := 'Nombre de usuario o similar...';

  EncodedUser := TIdURI.URLEncode(User);

  URI := Format('http://www.tu-servidor.com/tu-script.php?usuario=%s',
   [EncodedUser]);

  try
    Response := Http.Get(URI);

    if Response = 'existe' then
    begin
      ShowMessage('El usuario existe, según el servidor');
    end
    else
    begin
      ShowMessage('El usuario NO existe, según el servidor');
    end;

  finally
    Http.Free();
  end;

end;

Creo que más o menos se entiende... al menos eso creo yo.