Delphi : Программирование

  with DB do
  begin
    DB.LogParams.Connect := edDB.Text;
    DB.LogParams.UserName := EdUserName.Text;
    DB.LogParams.Password := EdPassword.Text;
    try
      Connect;
    except
      on E: Exception do
      begin
        ShowMessage(Trim(E.Message));
        exit;
      end;
    end;
  end;

  with ORQuery do
  begin
    Active := False;
    SQL.Clear;
    SQL.Add('select * from supermag.sssysinfo');
    Active := True;
  end;
  with OrQuery do
        while not EOF do
        begin
          ObjLst.Cells[0, i] := Fields[0].AsString;
          ObjLst.Cells[1, i] := Fields[1].AsString;
          Inc(i);
          Next;
        end;