Не удаляется запись. Firebird + Interbase

[artemavd]

Добрый вечер! Не могу удалить программно запись. Вот код, которым пытаюсь удалить запись, зная ее ID:

procedure TForm3.sSpeedButton1Click(Sender: TObject);
begin
 Form1.IBQuery1.Close;
 Form1.IBQuery1.SQL.Clear;
 Form1.IBQuery1.SQL.Text:='delete from INPUT where ID=' +  Form1.sDBText1.Caption;
// Form1.IBQuery1.ParamByName('A').Value:=Form1.sDBText1.Caption;
 Form1.IBQuery1.ExecSQL;
 Form1.IBTransaction1.Commit;
 Form1.IBQuery1.Close;
 Form1.IBQuery1.SQL.Clear;
 Form1.IBQuery1.SQL.Text:='select * from INPUT';
 Form1.IBQuery1.Open;
 Form3.Close;
end;

но данный код выдает ошибку (см.скрин)
Однако, сам же запрос, сделанный в IBExpert'e:

delete from INPUT where ID='1'

прекрасно удаляет запись с ID=1. Пробовал и через параметр передавать значение в запрос, но не работает. Помогите, что не так? Нужно удалить запись и подтвердить транзакцию.

[Serge_Bliznykov]

какого типа поле ID в базе.
Если строковое, тогда почему у тебя в запросе значение Form1.sDBText1.Caption не в кавычках (QoutedStr(Form1.sDBText1.Caption)

если числовое, тогда почему в запросе в IBExpert 1 в кавычках?

[artemavd]

Все, разобрался. Просто значение бралось на Form1, а запрос выполнялся на Form3. Параметр заносился из первой формы. Сделал, чтобы при появлении Form3 параметр из первой формы присваивался в Label, который на третьей форме и все заработало. Вот, так сделал:

procedure TForm3.sSpeedButton1Click(Sender: TObject);
begin
 Form1.IBQuery1.Close;
 Form1.IBQuery1.SQL.Clear;
 Form1.IBQuery1.SQL.Text:='delete from INPUT where ID=' + Form3.sLabel3.Caption;
 Form1.IBQuery1.ExecSQL;
 Form1.IBTransaction1.Commit;
 Form1.IBQuery1.Close;
 Form1.IBQuery1.SQL.Clear;
 Form1.IBQuery1.SQL.Text:='select * from INPUT';
 Form1.IBQuery1.Open;
 Form3.Close;
end;