verificar se o TCPClient esta conectando Connected

Preciso arrumar este codigo, me ajude
Verifico se o servidor esta conectado, dai continuo com o codigo, preciso que se o servidor não estiver conectado vou travar a estação e faço o usuario esperar ate o servidor ficar conectado, ja tenho um codigo para bloquear a estação, so preciso saber onde colocar e como verificar se o servidor esta conectado.
Utilizei o try, mas mesmo desconectado o codigo continua e gera erro.
estou com uma certa urgencia

[color=red:8a2b74cace]procedure TMainFormClient.TimerTimer(Sender: TObject);
var
JpegStream : TMemoryStream;
pic : TBitmap;
sCommand : string;
begin
try
if not TCPClient.Connected then
// Exit;

Timer.Enabled := False;

TCPClient.WriteLn(´CheckMe´); //command handler
sCommand := TCPClient.ReadLn;
if sCommand = ´TakeShot´ then
begin
IncomingMessages.Lines.Insert(0,´Copia executada em: ´ + DateTimeToStr(Now));

pic := TBitmap.Create;
JpegStream := TMemoryStream.Create;
ScreenShot(0,0,Screen.Width,Screen.Height,pic);
BMPtoJPGStream(pic, JpegStream);
pic.FreeImage;
FreeAndNil(pic);

IncomingMessages.Lines.Insert(0,´Enviado copia da tela...´);

// copy file stream to write stream
TCPClient.WriteInteger(JpegStream.Size);
TCPClient.OpenWriteBuffer;
TCPClient.WriteStream(JpegStream);
TCPClient.CloseWriteBuffer;
FreeAndNil(JpegStream);
//making sure!
TCPClient.ReadLn;
end;

Timer.Enabled := True;
except
on E: Exception do
ShowMessage(´Erro na conexão !´ + #13 + E.Message);
end;
end;[/color:8a2b74cace]