А может всётки дело не в компоненте, а в чём то другом ? Попробуй вот так:

procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
while I <> 1 do I := ClientSocket1.Socket.SendText(HTTP_POST);
end;

В случае успешной отправки ф-ция " SendText " вернёт 1, иначе 0.