Не работает отправка данных в сокете.

program test;


uses
crt, sockets;

Var
Sock, Sock_new: LongInt;
SAddr: TInetSockAddr;
buf: ^Word;
Sx: String;
S: ^String;
Ln: Integer;
SAddrLength: LongWord;

Received, i: Integer;
Buffer: array[0..5000] of Byte;
Ss: String;
Begin
ClrScr;
Sock := fpsocket(AF_INET, SOCK_STREAM, 0);
If (Sock = -1) then begin
Writeln('Socket Error');
ReadLn;
Halt;
end else
writeln ('Socket created - OK');

SAddr.sin_family := AF_INET;
SAddr.sin_Port := htons(1234);
SAddr.sin_addr := StrToNetAddr('127.0.0.1');

New(buf);
buf^ := 26;

If (fpconnect(Sock,@SAddr,SizeOf(SAddr)) <> -1) then begin
WriteLn('Connect - OK');

for i := 1 to 50 do begin
Sx := 'test'MESSAGE KEY MISSING: '13'10#11;
Received := fpsend(Sock,@Sx,Length(Sx),1);
WriteLn(Received);
end;

repeat
Received := fpRecv(Sock, @Buffer[0], 5000, 0);
if Received < 0 then
WriteLn('[done]');
SS := '';
for i := 0 to Received-1 do SS := SS + chr(Buffer);
Write(SS);
until Received <= 0;
end else begin
WriteLn('Connect - Error');
end;
fpShutDown(Sock, 2);
CloseSocket(Sock);
WriteLn('Socket closed, press Enter.');
ReadLn;
Halt;
End.