Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Как подсоединиться к MySQL?

01.01.2007

Perhaps you have already seen the uses clause. You may download mySQL.pas from www.fichtner.net/delphi

uses mySQL;
 
procedure
Connect;
var
  myServer
: PMysql;
 
Tables: PMYSQL_RES;
 
TableRows: my_ulonglong;
 
Table: PMYSQL_ROW;
begin
  myServer
:= mysql_init(nil);
 
if myServer <> nil then
 
begin
   
if mysql_options(myServer, MYSQL_OPT_CONNECT_TIMEOUT, '30') = 0 then
   
begin
     
if mysql_real_connect(myServer, 'host', 'user', 'password', 'database', 3306,
       
nil, CLIENT_COMPRESS) <> nil then
     
begin
       
Tables := mysql_list_tables(myServer, nil);
       
if Tables <> nil then
       
begin
         
TableRows := mysql_num_rows(Tables);
         
while TableRows > 0 do
         
begin
           
Table := mysql_fetch_row(Tables);
           
Tabelle := Table[0];
           
Dec(TableRows);
         
end;
       
end;
     
end;
   
end;
 
end;
end;

Взято с Delphi Knowledge Base: https://www.baltsoft.com/