[Aristarh Dark]

если оба поля (kod, name) у тебя строковые делай так:

Код:

procedure TForm2.Button1Click(Sender: TObject); 
var 
f1,f2:string; 
begin 
f1:=edit1.text; 
f2:=edit2.text; 
adoquery1.sql.clear; 
adoquery1.sql.add('instert into contractors(kod,name) values('+QuotedStr(f1)+','+QuotedStr(f2)+')') ; 
adoquery1.ExecSQL; 
end;