[Professor Farnsworth]

Лучше сумму считать через запрос, значительно быстрее.
Например так.

Код:

procedure TForm1.Button2Click(Sender: TObject);
var s:real;
begin
   With ADOQuery2 do
   begin
       Close;
       SQL.Clear;
       SQL.Add('Select sum(PriceRUB) as summa from main');
       Open;
   end;
   Label2.Caption:= 'Сумма заказа составляет ' + FloatToStr(ADOQuery2.fieldByName('summa').AsFloat + StrToFloat(edit1.Text))+'р.';
end;