A ver, tu código actual dice esto:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Text:= 'SELECT SUM(Total) FROM Venta.DB WHERE NORDEN = :PORDEN';
Query1.ParamByName('PORDEN').Value:= StrToInt(Edit1.Text);
Query1.Open;
elTotal:= Query1.FieldByName('TOTAL').Value;
Query1.Close;
label6.Caption:= Format('%8.2f',[elTotal]);
end;
A tu consulta le quitaste el
AS TOTAL que estaba antes y claro, ahora no reconoce ese campo cuando lees:
Código Delphi
[-]
elTotal:= Query1.FieldByName('TOTAL').Value;
Pero no podemos andar adivinando todo por ti. Te marcó un error de ejecución y debiste ponerlo aquí.
// Saludos