[Black Raider]

Код:

procedure TForm1.BitBtn7Click(Sender: TObject);
var
mon1: string;
begin
if not(Form1.Edit1.Text='') then
begin
DataModule2.ADOQuery1.Close;
DataModule2.ADOQuery1.SQL.Clear;
mon1:='UPDATE таблица2 SET bar='+''''+Edit1.Text+''''+'';
mon1:=mon1+'WHERE ID='+label32.Caption;
DataModule2.ADOQuery1.SQL.Add(mon1) ;
DataModule2.ADOQuery1.ExecSQL;

DataModule2.ADOQuery1.Close;
DataModule2.ADOQuery1.SQL.Clear;
mon1:='SELECT * FROM barnom WHERE status='+#39+'свободно'+#39
DataModule2.ADOQuery1.SQL.Add(mon1) ;
DataModule2.ADOQuery1.Open;
end;
end;