Delete и Update

[crit]

почему не хочет удалять поле в DBGrid
procedure TForm7.N3Click(Sender: TObject);
begin
OraQuery1.SQL.Text := 'delete from KURS_KADR2 where FIO=' + CRDBGrid1.SelectedField.Value;
// OraQuery1.Params.ParamByName('fio') .Value = ;

OraQuery1.ExecSQL;

end;

и редактирует не правильно(
OraQuery1.SQL.Text := 'update kurs_kadr2 set FIO =:fio,TABEL=:tabel,CEH=:ceh,DOLJ= olj';// where FIO=' + Quotedstr(Form7.CRDBGrid1.SelectedF ield.Text);
OraQuery1.ParamByName('fio').AsStri ng:= Edit1.Text;
OraQuery1.ParamByName('tabel').AsSt ring:= Edit1.Text;
OraQuery1.ParamByName('ceh').AsStri ng:= Edit1.Text;
OraQuery1.ParamByName('dolj').AsStr ing:= Edit1.Text;
OraQuery1.ExecSQL;

[crit]

редактирование происходит так: щелкается мышью в меню выьирается редактировать,появляется окошко с редактированием ФИО табеля должности цеха. тоесть вот так:

procedure TForm11.FormActivate(Sender: TObject);
begin
   OraQuery1.SQL.Text := 'SELECT FIO,CEH,DOLJ,tabel FROM KURS_KADR2  where FIO=' + Quotedstr(Form7.CRDBGrid1.SelectedField.Text);
   OraQuery1.Open;
   WHILE(OraQuery1.Eof<>true) do
   begin
 Edit1.Text := OraQuery1.FieldByName('FIO').AsString;
 Edit2.Text := OraQuery1.FieldByName('tabel').AsString;
 Edit3.Text := OraQuery1.FieldByName('ceh').AsString;
 Edit4.Text := OraQuery1.FieldByName('dolj').AsString;
 OraQuery1.Next;

[crit]

кто-нибудь хелп ми!

[Sparky]

Попробуй OraQuery1.close; OraQuery1.open

[crit]

OraQuery1.SQL.Text := 'delete from KURS_KADR2 where FIO=' + Quotedstr(CRDBGrid1.SelectedField.T ext);

OraQuery1.ExecSQL;
вот так удаляет все записи,а надо чтобы которую выделил...

[Sparky]

да только потом тоже нужно будет close, open

[crit]

OraQuery1.SQL.Text := 'delete from KURS_KADR2 where FIO=' + Quotedstr(CRDBGrid1.SelectedField.T ext);
OraQuery1.open;

OraQuery1.ExecSQL;
OraQuery1.Close;
вот так??

[Sparky]

OraQuery1.open; в конце. А что что-то смущает?

[crit]

OraQuery1.SQL.Text := 'delete from KURS_KADR2 where FIO=' + Quotedstr(CRDBGrid1.SelectedField.T ext);

OraQuery1.ExecSQL;
OraQuery1.Close;
OraQuery1.Open;
ошибка вылетает

[Sparky]

а что за ошибка? а insert, update он съел нормально?