Создание и использование форм

var ownerform:TOwnerForm;
 
begin
   ownerform:=(Self.Owner as  TOwnerForm);
  // do...
end;

with someQuery do begin
connection:=FFDConnection;
cachedUpdates:=true;
params.paramValues['someParam']:=FSomeParam;
Disconnect;
Open;
id:=fieldByName('id').Asinteger;
end;

//add scale here
  with qSelectScalesWhereTestID do begin
  Connection:=FFDConnection
      try
       Params.ParamValues['tests_id']:=FTestID;
       CachedUpdates:=true;
       Open();
       trWrite.StartTransaction();
       Insert();
       FieldByName('name').AsString:=scaleName;
 
       if ApplyUpdates<>0 then raise Exception.Create(RowError.Message);
       trWrite.Commit();
       scaleID:=getLastInsertID();
      except
 
       on E:Exception do begin
       if trWrite.Active then trWrite.Rollback;
       Cancel;
       CancelUpdates;
       Application.ShowException(E);
       end;
      end;
  end;