Передача текста через Buf с помощью Socket

[Shouldercannon]

Доброго времени суток!
Передаю текст

Код: (Delphi)

var
  s: String;
  I: Integer;
begin
  if ClientSocket1.Active then
  begin
    s := ETransfer.Text;
    I := Length(s);
    ClientSocket1.Socket.SendBuf(s, SizeOf(I));
  end;
end;

Получаю текст

Код: (Delphi)

var
  s: String;
  I: Integer;
begin
  I := Socket.ReceiveLength;
  SetLength(s, I);
  Socket.ReceiveBuf(s, I);
  EReceiving.Text := s;
end;

Тип сокета stNonBlocking

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

[RXL]

Проблема не видна. Поясни словами.

[Shouldercannon]

В поле Получаю приходят данные при; 1, 4, 8, 12 символов. Всё что между ними - пустота, не выводятся в поле Получаю.
Типа строка - это не массив, это отдельный тип в делфи, поэтому подставлять ее вместо буфера бессмысленно
как вариант, можно туда передать s[1], тогда должно пройти
но SizeOf(I) это ровно 4 (для win-64 - 8)
независимо от длины строки
нужно посылать длина строки в символах * размер символа в байтах, т.е.
Length(S) * SizeOf(char)

[Алексей++]

ClientSocket1.Socket.SendBuf(s, SizeOf(I)); - это не логично, тогда уж ближе к истине

ClientSocket1.Socket.SendBuf(s,I);

но при этом нужно брать указатель на внутренний буфер s

(дельфи не знаю, конкретно подсказать не смогу )