uses dbtables; 
 
function FSQL(Abfrage: string): double; 
begin 
  with TQuery.Create(nil) do 
  try 
    SQL.Text := Abfrage; 
    Open; 
    result := Fields[0].AsFloat; 
  finally 
    free; 
  end; 
end; 
 
// --- Beispiele --- 
 
// Gesamtsumme der Spalte "Eingang" der Datenbank "kunden.db" 
procedure TForm1.Button1Click(Sender: TObject); 
var d: Double; 
begin 
  d := FSQL('SELECT SUM(Eingang) FROM "C:\DBanken\kunden.db";'); 
  showmessage(FormatFloat('#,##0.00 €', d)); 
end; 
 
// Wieviel hat Hans Meier, geb. 1.7.1950, im Jahr 2004 eingezahlt? 
procedure TForm1.Button2Click(Sender: TObject); 
var d: Double; 
begin 
  d := FSQL('SELECT SUM(Eingang) FROM "C:\DBanken\kunden.db" WHERE' + 
    ' (Name = "Meier") AND (Vorname = "Hans") AND (geboren = "01.07.1950")' + 
    ' AND (EXTRACT(YEAR FROM Datum) = 2004)";'); 
  showmessage(FormatFloat('#,##0.00 €', d)); 
end;