LastRowID wie auslesen?

[AlexII]

Hallo,

ich möchte die letzte eingefügte ID auslesen, aber ich scheitere an der Syntax und brauche Hilfe. Hier mein Code:

Delphi-Quellcode:

procedure TForm2.InsertNewJob();
begin
  Form1.SQLQuery1.Close;
  Form1.SQLQuery1.SQL.Text := 'INSERT INTO tbmain VALUES(NULL, :title, :start, :ende, :memo, :fk_category_id, NULL, NULL, :fk_status_id, NULL)';
  Form1.SQLQuery1.ParamByName('title').AsString := TitleEdit.Text;
  Form1.SQLQuery1.ParamByName('start').AsDateTime := StartDateEdit.Date;
  Form1.SQLQuery1.ParamByName('ende').AsDateTime := EndeDateEdit.Date;
  Form1.SQLQuery1.ParamByName('memo').AsString := Memo.Text;
  Form1.SQLQuery1.ParamByName('fk_category_id').AsInteger := Integer(CategoryComboBox.Items.Objects[CategoryComboBox.ItemIndex]);
  Form1.SQLQuery1.ParamByName('fk_status_id').AsInteger := 1; 
  Form1.SQLQuery1.ExecSQL;
  Form1.SQLTransaction1.Commit;

  // Letze id auslesen
  Form1.SQLQuery1.Close;
  Form1.SQLQuery1.SQL.Text := 'SELECT last_insert_rowid() FROM tbmain';
  Form1.SQLQuery1.Open;
  showmessage(inttostr(last_insert_rowid())); // funktioniert nicht
end;

Nun an welcher Stelle und vor allem wie lese ich diese aus?