a:='adsas';//a :string; tanımlı


Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add ('INSERT into izin ' );
Query2.SQL.Add (' (Ad)') ;
Query2.SQL.Add ('values (Ad=:ad) ');
query2.Params[0].AsString:=a;

Query2.ExecSQL;

bu kod neden calışmıyor acil yardım
__________________