Справочная служба аэропорта

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:integer;
begin
b:=StrToInt(Edit1.Text);
Query1.Edit;              
Table1.Open;          
Query1buy.Value:=b+Query1buy.Value;
 
Query1svob.Value:=Table1Mest.Value - Query1buy.Value;
end;

begin
 DataSource1.DataSet:=Query2;
if okbottomdlg.ShowModal=mrok then   // в edit1.text ввожу нужный пункт отправления и ищу
with Query2 do
begin
close;
ParamByName('dnazv').Value:=okbottomdlg.edit1.text;
open;
end;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
  DataSource2.DataSet:=Query1;
DataSource1.DataSet:=Query2;
if okbottomdlg.ShowModal=mrok then
with Query2 do
begin
close;
ParamByName('dnazv').Value:=okbottomdlg.edit1.text;
open;
end;

procedure TForm4.Button1Click(Sender: TObject);
var
b:integer;
begin
form1.Query1buy.ReadOnly:=False;
form1.Query1svob.ReadOnly:=False;
form1.Query1.Edit;
form1.Table1.Open;
b:=StrToInt(Edit1.Text);
form1.Query1svob.Value:=form1.Table1Mest.Value - form1.Query1buy.Value;
if b>form1.Query1svob.Value then ShowMessage('ошибка') else begin
form1.Query1.Edit;
form1.Table1.Open;
  form1.Query1buy.Value:=b+ form1.Query1buy.Value;
form1.Query1svob.Value:=form1.Table1Mest.Value - form1.Query1buy.Value;
   form1.Query1.Post;
    end;
  form1.Query1buy.ReadOnly:=True;
  form1.Query1svob.ReadOnly:=true;
  form4.Close;
end;