Лямбда функция

(OnProcessCommand: string -> string)

procedure RunServer(OnProcessCommand: string -> string);
begin
  var server := new TcpListener(IPAddress.Any, port);
  server.Start();
 
  while (true) do
  begin
    var client := server.AcceptTcpClient();
    var stream := client.GetStream();
 
    var br := new BinaryReader(stream);
    var data := br.ReadString();
    
    data := OnProcessCommand(data);
    
    var bw := new BinaryWriter(stream);
    bw.Write(data);
    bw.Flush();
    
    stream.Close();
    client.Close();
  end;
end;

/// Запускает сервер, принимающий от клиента строку, выполняющий указанное действие и отправляющий строку в ответ
procedure RunServer(OnProcessCommand: string -> string);

OnProcessCommand: string -> string
OnProcessCommand: string -> ()