[roman]

Intenta esto:

Código Delphi [-]
// Inserción
ADOQuery1.SQL.Text := 'insert into tabla(campos) values(valores)';
ADOQuery1.ExecSQL;

// Último autoinc
ADOQuery1.SQL.Text := 'select @@identity';
ADOQuery1.Open;
Edit1.Text := ADOQuery1.Fields[0].Value;

// Saludos