ADO Database Delphi

with Query1 do begin
Close;
SQL.Clear;
SQL.Add('DELETE FROM Kisiler WHERE Yas=:Yas');
ParamByName('Yas').AsInteger := yas;
ExecSql;
end;