No se debe usar ClientSocket1.Active := True; cuando se está usando ClientType := ctBlocking;
Eso es al menos lo que me comentó alguien que sabía del tema.
Ejemplo:
Código Delphi
[-]var
cs1: TClientSocket;
begin
cs1 := TClientSocket.Create(nil);
try
cs1.ClientType := ctBlocking;
cs1.Address := '127.0.0.1';
cs1.Port := 8890;
cs1.Open;
cs1.Socket.SendText(cCad);