[Dzman]

Сообщение от Bargest

Скорее всего первое - это все та же ошибка D2009 и выше: String стало синонимом WideString. Попробуй в коде заменить все String на AnsiString.

не помогло

Реализовал:

Код:

procedure TForm1.CS1Read(Sender: TObject; Socket: TCustomWinSocket);
var S: AnsiString;
begin
S:='';
S:= CS1.Socket.ReceiveText;
Memo1.Lines.Add(S);
end;

Итог: