Можно. Работает отлично для нужного применения

у IdCmdTCPClient1 нужно сделать пачку командных хэндлеров. согласно списка ожидаемых команд от сервера

CommandHandlers

вот например мой список (взаимодействие сервис <> гуй) через порт

после того, как клиент получит команду от сервера, сработает соответствующий хэндлер. прелесть командных сервера и клиента в том, что все команды в обе стороны обрабатываются полностью автоматически

у каждого хендлера своя пачка свойств и событие (OnCommand)

посылка команд серверу, утф8 оказывалась самой удобной кодировкой:

s1 := Utf8Encode(Command + IfThen(s <> '', #1 + s));
FClient.IOHandler.WriteLn(string(s1), IndyTextEncoding_UTF8);

FClient:       TIdCmdTCPClient;
s1: Utf8String;

список команд на серверной стороне

врятли у тебя их будет столько ) но даже столько вполне работает )

посылка команд клиенту на стороне сервера:

s1: Utf8String;
FCurrContext:       TIdContext;

s1 := Utf8Encode(Command + s));
FCurrContext.Connection.IOHandler.WriteLn(string(s1), IndyTextEncoding_UTF8);

procedure TDataModule3.IdCmdTCPServer1Connect(AContext: TIdContext);
begin
 FCurrContext := AContext;
 FCurrContext.Connection.IOHandler.MaxLineLength := MaxInt;
 FConnected := True;
end;

s1: Utf8String;
FCurrContext:       TIdContext;

s1 := Utf8Encode(Command + s));
FCurrContext.Connection.IOHandler.WriteLn(string(s1), IndyTextEncoding_UTF8);

procedure TDataModule3.IdCmdTCPServer1Connect(AContext: TIdContext);
begin
 FCurrContext := AContext;
 FCurrContext.Connection.IOHandler.MaxLineLength := MaxInt;
 FConnected := True;
end;

Это на лазарусе?

delphi, но если инди на лазарь поставить, то будет и там. инди работает везде

только что не уверен, что редакторы свойств подключатся. возможно руками придется прописывать

Вцл? Меня больше интересует в чем отображаешь переписку

у меня не переписка )

Эхх,ну ладно

повторю

это сетевая сторона. в целом я думаю вполне применимо для чата