ну так и объяви глобальную переменную и в IdTelnet1DataAvailable присвой ей Buffer:
Код:
var
Form1: TForm1;
GBuffer: String;
implementation
{$R *.dfm}
procedure TForm1.IdTelnet1DataAvailable(Sender: TIdTelnet; const Buffer: String);
begin
GBuffer:= Buffer;