1:
2:

query.Add ('INSERT INTO mydb SET feld1 = ' + QuotedStr(myvar));
query.ExecSQL;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var
myID : Integer;

query.Last;

myID := StrToInt(query.FiedValues['ID']); // hier kommts drauf an, ob der Feldwert aus ID gleich als Integer übergeben wird, dann kann man das StrToInt natürlich weglassen

myID := Inc(1);  // <- bin mir hierbei gerade nicht so sicher... wenns nicht geht schreib einfach myID := myID + 1 ;)

query.SQL.Text := 'INSERT INTO myDB SET id = ' + myID;

query.ExecSQL;					

1:

SELECT MAX(ID) FROM MYDB					

1:
2:
3:
4:

Table1.open;
Table1.first;
Table1.edit;
Table1.delete;					

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:

begin
Datum := StrToDate(ComboBox2.Text);
Bildname := Bildname.Text;

ADOTable1.Open;
ADOTable1.Edit;

with ADOQuery1 do begin

open;
Last;

myID := strtoint(FieldValues['Bild_ID']);
myID := myID + 1;

close;
SQL.Clear;
SQL.Text :='INSERT INTO tbl_bild (Bild_ID, Bild_Name,Bild_AufnahmeDatum,Bild_Fotograf) VALUES('+quotedstr(inttostr(myid))+','+quotedstr(Bildname)+','+quotedstr(DateToStr(Datum))+',1)';

open;
execsql;
close;

end;
ADOTable1.Close;

end;