Socket que funciona hasta la segunda vuelta

[Enan0]

Mira calculo que han sido errores de TRanscripsion. pero!!!
el "FALSE" ahi solito no se que hace!!! y despues llamas a clientSocket1. y no a "CS1"

Código Delphi [-]
   False Then
   Try ClientSocket1.Open;