Delphi - TClientSocket error

Hola tengo un problema con el componente TClientSocket que viene en D6.

he creado una clase que manejara la conexion con un servidor.
declare una variable privada (FSocket) tipo TClientSocket que hara la conexion.
en ocaciones el servidor esta lleno y me redirecciona a otro servidor dandome su numero IP o host, entonces debo cerrar la conexion actual y conectame al nuevo servidor.
para eso cree un procedimiento es la clase que esta asi
procedure TMiClase.CambiarServer(const Host: String);
var
Sck: TClientSocket;
begin
FSocket.Close;
FSocket.Free;
FSocket := nil;

Sck := TClientSocket.Create(nil);
Sck.OnConnect := SocketConnect;
.....
.....
Sck.OnRead := SocketRead; // error
FSocket := Sck;
end;

pero al llamarlo por segunda vez a este procedimiento me sale error.
en la primera no.
el erro es que segun se intento hacer una operacion en algo que no es un socket.
FSocket fue creado en el constructor por siacaso

que sucede ?
gracias por la ayuda

la lo solucione gracias