Cerrar conexion con ADO

[olbeup]

Porque no utilizas TADOConnection para realizar la conexión, ésta es otra forma.

Código Delphi [-]
procedure TFP.Button1Click(Sender: TObject);
var
  Cnn: TADOConnection;
begin
  Cnn := TADOConnection.Create(nil);
    Cnn.ConnectionString :=  'DRIVER={MySQL ODBC 5.1 Driver};SERVER=192.168.1.9;test;USER=root;PASSWORD=123456;OPTION=3';
    Cnn.LoginPrompt := False;

  with TADOQuery.Create(nil) do
  begin
    Connection := Cnn;
    SQL.Add('SELECT * FROM T1');
    Open;
    Cnn.Close;
    Free;
  end;

  with TADOQuery.Create(nil) do
  begin
    Connection := Cnn;
    SQL.Add('SELECT * FROM T2');
    Open;
    Cnn.Close;
    Free;
  end;

  with TADOQuery.Create(nil) do
  begin
    Connection := Cnn;
    SQL.Add('SELECT * FROM T3');
    Open;
    Cnn.Close;
    Free;
  end;

  Cnn.Free;

  ShowMessage('OK');
end;

Un saludo.