unit Unit10;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdWhois;
 
type
  TForm10 = class(TForm)
    IdWhois1: TIdWhois;
    Edit1: TEdit;
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form10: TForm10;
 
implementation
 
{$R *.dfm}
 
procedure TForm10.Button1Click(Sender: TObject);
var
Line,FindResult: string;
iPos: Integer;
begin
Memo1.Clear; //Очистка содержимого компонента TMemo
FindResult := IdWhois1.WhoIs(Edit1.Text); //Запускаем поиск и Дальше идет форматирование полученной информации
while Length(FindResult) > 0 do
begin
iPos := Pos(#10, FindResult);
Line := Copy(FindResult, 1, iPos - 1);
Memo1.Lines.Add(Line);
Delete(FindResult, 1, Length(Line)+1);
end;
end;
 
end.