1:
2:
3:
4:
5:
6:
7:
8:
9:

function TSL.test: string;
var i:integer;
    idn:string;
begin
    for i:=0 to qu2.FieldCount-1 do
    if(qu2.FieldByName(qu.Fields.Fields[i].FieldName).AsString = 'auto_increment')then
      idn:=qu2.Fields.Fields[i].FieldName;
    result:=idn;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

var ZQuery : TZQuery;               // Diese Komponente auf Form setzen
    ZConnection : TZConnection;     // und diese auch
   
   // Das hier im ObjectInspector setzen
    with ZConnection do
    begin
     Protocol := 'mysql...'; // das richtige MySQL Protocol wählen    
     Database := 'test';
     Hostname := 'localhost'; // Wenn auf deinem Computer der MySQL Server läuft,  oder IP Adresse deines Servers
     User :=     'root';      // Username dem Rechte zugeteilt wurden auf DB zuzugreifen
     Password := '';          // Passwort die für DB eingestellt wurde
     Properties.Values['timeout'] := '5'; // Timeout setzen wie lange versucht wird eine Verbindung aufzubauen
     
     // Jetzt connecten
     try
       Connect;
     except
       if(not Connected)then
       begin
       ShowMessage('Verbindung fehlgeschlagen!');
       Exit;
       end;
     end; 
    end;
    
    // Das auch im ObjectInspector setzen
    ZQuery.Connetion := ZConnection;  
     
    ZQuery.SQL.Clear;
    ZQuery.SQL.Add('Show full columns from `Testtabelle`');  // hier anstatt Testtabelle deine Tabelle
    ZQuery.Open;
    ZQuery.First;
    while not ZQuery.Eof do
    begin
    if ZQuery.FieldByName('Extra').AsString = 'auto_increment' then // Hier muß du anstatt Extra ein anderes nehmen, irgendeins der oben genannten
    begin
    AutoIncField := ZQuery.FieldByName('Field').AsString;           // hiermit prüfst du wie der Feldname heißt der dann die Option hat!
    Break;
    end;
    ZQuery.Next;   // <--- Das hast du vergessen
    end;