Сейчас изменил процедуру так:
Код:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
tst: ansistring;
begin
tst := Socket.ReceiveText;
ShowMessage(tst);
end;
Теперь в Ansistring приходит текст "????" (вместо квадратиков)