Параметризованный запрос

procedure TForm6.BT_authClick(Sender: TObject);
var
  MyQuery: TMyQuery;
  DataSource: TMyDataSource;
begin
  MyQuery:= TMyQuery.Create(Form6);
  DataSource:= TMyDataSource.Create(Form6);
 
  MyQuery.SQL.Clear();
  MyQuery.SQL.Add('select level from user where login = :login and password = :password');
 
  MyQuery.Params.ParamByName('login').Value:= TB_login.Text;
  MyQuery.Params.ParamByName('password').Value:= TB_pass.Text;
 
  ExecQuery(MyQuery, DataSource, true);
  ShowMessage(MyQuery.FieldByName('level').Value);
end;

procedure ExecQuery(var Query: TMyQuery; var DataSource: TMyDataSource; needReturn: boolean);
var
  Connection: TMyConnection;
  t: SettingsFile;
begin
  if(FileExists(PATH))
  then
  begin
      t:= ReadSettings();
 
      Connection:= TMyConnection.Create(nil);
 
      Connection.ConnectString:= 'User ID=' + t.BD_login + ';Password=' + t.BD_password + ';Data Source=' + t.BD_server +
      ';Database=' + t.BD_name + ';Port=' + IntToStr(t.BD_port);
      DataSource.DataSet := Query;
 
      Query.Connection := Connection;
 
      Connection.Connected := true;
      Connection.Open;
 
      if(needReturn)
      then
        Query.open()
      else
        Query.ExecSQL();
 
  end
  else
    ShowтMessage('5 Файл настроек отсутствует');
end;

procedure SetGrid(var grid: TDBGrid);
var
   DataSource: TMyDataSource;
   MyQuery: TMyQuery;
begin
  DataSource := TMyDataSource.Create(nil);
  MyQuery:= TMyQuery.Create(nil);
 
  MyQuery.SQL.Add('select * from unit where isDelete = 0');
  ExecQuery(MyQuery, DataSource, true);
 
  SetLength(ids, 1);
  MyQuery.First;
  while(not MyQuery.Eof) do
  begin
    ids[Length(ids) - 1]:= MyQuery.FieldByName('Id').AsString;
    SetLength(ids, Length(ids) + 1);
 
    MyQuery.Next;
  end;
 
  grid.DataSource := DataSource;
end;