Altro Unire codici (Delphi XE)

[mrcamarium]

Devo unire queste due funzioni:

procedure TForm1.serverExecute(AThread: TIdContext);
var
clients:tlist;
i:integer;
messaggioprelevato:string;
begin
messaggioprelevato:=AThread.Connection.IOHandler.ReadLn;
showmessage (messaggioprelevato);
clients := Server.Contexts.LockList;;
try
for i:=0 to connessi-1 do
try
TIdContext(clients.Items[i]).Connection.IOHandler.WriteLn(messaggioprelevato);
except
end;
finally
end;
Server.Contexts.UnlockList;
end;


procedure TForm1.ServerExecute(AContext: TIdContext);
var
FileName: string;
TFSFileIn: TFileStream;
begin
TThread.Synchronize(nil,
procedure
begin
Filename := 'C:';
end);
TFSFileIn := TFileStream.Create(FileName, fmCreate);
try
AContext.Connection.IOHandler.ReadStream(TFSFileIn);
finally
TFSFileIn.Free;
end;
end;

Ma sono riuscito a fare solo questo:

procedure TForm1.serverExecute(AThread: TIdContext);
var
clients:tlist;
i:integer;
messaggioprelevato, FileName:string;
TFSFileIn: TFileStream;
begin
TThread.Synchronize(nil,
procedure
begin
Filename := 'c:';
end);
TFSFileIn := TFileStream.Create(FileName, fmCreate);
try
AContext.Connection.IOHandler.ReadStream(TFSFileIn);
finally
TFSFileIn.Free;
end;
end;
begin
messaggioprelevato:=AThread.Connection.IOHandler.ReadLn;
showmessage (messaggioprelevato);
clients := Server.Contexts.LockList;;
try
for i:=0 to connessi-1 do
try
TIdContext(clients.Items[i]).Connection.IOHandler.WriteLn(messaggioprelevato);
except
end;
finally
end;
Server.Contexts.UnlockList;
end;

Che mi restituisce l'errore:
[DCC Error] Unit1.pas(47): E2003 Undeclared identifier: 'AContext'