Indy и поток MemoryStream

[udaf]

Подскажите как сделать. Есть обычния реализация:

сервер:

procedure  Tform1.IdTCPServer1Execute(AContext: TIdContext);
var
fstream:TMemoryStream;
begin

...
// п.1 Создаю поток
  fstream:=TMemoryStream.Create;
  AnyFile.SaveToStream(fstream);

// п.2 принимаю, запрос от клиента
z := AContext.Connection.IOHandler.ReadLn;

   ifSameText(Copy(z, 1, 11), 'get_stream ') then
  begin
        // п.3 Отправляю поток
        AContext.Connection.IOHandler.Write(fstream);
    end;

  // п.4 Разрываю соединение
  AContext.Connection.Disconnect;

...
end

клиент:

procedure TForm3.Timer1Timer(Sender: TObject); 
var
fstream:TMemoryStream;
begin

...
   fstream:=TMemoryStream.Create;
 
   IdTCPClient1.Connect;
   IdTCPClient1.IOHandler.WriteLn('get_screen ');
   IdTCPClient1.IOHandler.ReadStream(mem,-1,true);

...
end;

Вопрос: как сделать так, чтобы ни сервер, ни клиент не разеденялись, сервер также слал потоки, а клиент их принимал. Т.Е. если заново писать "IdTCPClient1.Connect;" , когда срабатывает таймер, то открывается новое соединение (клиент соединяется другим портом с сервером). Я не хочу работать по принципу одно соединение - один запрос. Нужно сделать, так, чтобы из одного соединения клиент вытаскивал файлы, которые ему шлет сервер.