[NumLock]

почему выкладывать исходник с TMyConnection, TMyTable, TMyTable, TMyQuery если ни у кого этого нет? теперь понятно зачем я свой выложил?
по поводу проблемы могу посоветовать 100% рабочий вариант:

Код:

procedure TForm1.ConnectToBtnClick(Sender: TObject);
begin
  if ClientSocket1.Active then
  begin
    ClientSocket1.Active := False;
    ConnectToBtn.Caption := 'Соединиться'
  end
  else
  begin
    ClientSocket1.Free;
    ClientSocket1:=TClientSocket.Create(Self);
    ClientSocket1.OnConnect:=ClientSocket1Connect;
    ClientSocket1.OnDisconnect:=ClientSocket1Disconnect;
    ClientSocket1.OnError:=ClientSocket1Error;
    ClientSocket1.Host := HostNameEdit.Text;
    ClientSocket1.Port := StrToInt(PortToEdit.Text);
    // соединяемся с сервером
    ClientSocket1.Active := True
  end
end;