[tier_skg]

Где этот тип переменных использовать? Я вроде на прием и передачу делал.
К примеру вот простейший клиент сервер:

Код:

 unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdCustomTCPServer, IdTCPServer, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, StdCtrls,IdContext ;

type
  TForm5 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    IdTCPServer1: TIdTCPServer;
    IdTCPClient1: TIdTCPClient;
    procedure IdTCPServer1Execute(AContext: TIdContext);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);
   var a:AnsiString ;
begin
 IdTCPClient1.Connect;
 a:= Edit1 .text;
 IdTCPClient1 .Socket .WriteLn(a);
  IdTCPClient1.Disconnect;
end;

procedure TForm5.IdTCPServer1Execute(AContext: TIdContext);
var b:AnsiString ;
begin
b:= AContext.Connection.Socket.ReadLn;
edit2.Text := b;

AContext .Connection .Disconnect ;


end;

end.