try
begin
...// код, где возможна ошибка(запрос к серверу, в данном случае)
end
except
begin
...// код, сообщающий об ошибке - выполняется, если ненадёжный код выдал ошибку
end;

if ((Length(Edt1.text))<>0) and ((Length(Edt2.text))<>0) then  
        begin  
          btn1.Enabled:=False;  
          edt2.Enabled:=False;  
          edt1.Enabled:=False;  
          ClientSocket.Port:=StrToInt(edt1.Text);  
          ClientSocket.Host:=edt2.Text;  
          ClientSocket.Address:=edt2.Text;
       try
          ClientSocket.Active:=True;
       except
          ShowMessage('error');
       end;
          btn2.Tag:=1;  
          btn2.Caption:='Отключится';  
        end  
        else  
        ShowMessage('Введите IP и порт!');

        f.TcpClient1.RemoteHost:=f.Edit1.Text;
        f.TcpClient1.RemotePort:=inttostr(Porta);
        f.TcpClient1.Active:=true;
        f.TcpClient1.Open;
        //.............................................
        if f.TcpClient1.Connected then begin
           if f.Edit2.Text<>'' then begin
              f.IdTCPClient1.Host:=f.Edit1.Text;     
              f.IdTCPClient1.Port:=Porta;
              f.IdTCPClient1.Connect;