[M.A.D.M.A.N.]

Да, так нагляднее и удобнее, чем посты и аппенды.

Я для работы с бд вообще так сделал:

Код:

function OpenQuery(const ASQLQuery: string; AParams: IParams = nil): IDataSet;
begin
  Result := TInternalDataset.Create(ASQLQuery, AParams);
end;

procedure ExecSQL(const ASQLQuery: string; AParams: IParams = nil);
var
  p: TParams;
begin
  if Assigned(AParams) then
    p := AParams.Params
  else
    p := nil;

  Database.Execute(ASQLQuery, p);
end;

Использую так:

Код:

  ds := OpenQuery(SQL_LOAD_ЧЁТО_ТАМ, p);

  with ds.DataSet do
  begin
    First;

    while not Eof do
    begin
...