type
    procedure IdTCPServer1Execute(AThread: TIdPeerThread);
var
  Form1: TForm1;
Implementation
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
  z: string;
  fstream:TFileStream;
  X,Y:integer;
  K:TPoint;
begin
  with AThread.Connection do
  begin
   z := ReadLn;
   if SameText(Copy(z, 1, 11), 'get_screen ') then
   begin
    Log('Запрошен скриншот');
    GET_SCREEN;
    fStream := TFileStream.Create(ExtractFilePath(Application.ExeName)+'\'+'s.png',
                                  fmOpenRead	+ fmShareDenyNone);
    OpenWriteBuffer;
    Log('Передаем файл s.png');
    WriteStream(fStream);
    Log('Файл передан');
    CloseWriteBuffer;
    FreeAndNil(fStream);
   end;
   if SameText(Copy(z, 1, 11), 'mouse_move ') then
   begin
    z := ReadLn;
    if SameText(Copy(z, 1, 8), 'mouse_x ') then
    X:=StrToInt(Copy(z,9,4));
    z := ReadLn;
    if SameText(Copy(z, 1, 8), 'mouse_y ') then
    Y:=StrToInt(Copy(z,9,4));
    Log('Перемещение мыши');
    SetCursorPos(X,Y);
  end;

type
     procedure IdTCPServer1Execute(AContext: TIdContext);
и далее
procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);

OpenWriteBuffer;  //не объявленный идентификатор
    Log('Передаем файл s.png');
    WriteStream(fStream); //не объявленный идентификатор
    Log('Файл передан');
    CloseWriteBuffer; ////не объявленный идентификатор