with ADOQuery1 do
begin
close;
sql.Text := 'select top ' + inttostr(n) + '* from PhoneCall order by charge';
open;
last;
edit1.text := currtostr(fieldbyname('charge').ascurrency);
end;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.ADD('Select * From MyTable Order by price');
ADOQuery1.Open;
for i:=0 to n-1 do
ADOQuery1.Next;
Edit1.Text:=CurrtoStr(ADOQuery1.FieldByName('price').AsCurrency);