Phänomenale Fehlermeldung unter Vista...zum Rätseln

[nahpets]

Hallo,

als erstes mal Try&Error machen, mit festen Werten:

Delphi-Quellcode:

ZQueryStatistikKunde.SQL.Text := 'select count(ID) from BEHANDLUNG where DATUM between ''01.02.2009'' and ''28.02.2009'' and KUNDENNUMMER = :Kunde'; 
ZQueryStatistikKunde.ParamByName('Kunde').AsString := 'abcdef'; 
ZQueryStatistikKunde.Open;
SeriesPat.Add(ZQueryStatistikKunde.FieldValues['COUNT'],IntToStr(2),clRed); 
ZQueryStatistikKunde.Close;

funktioniert? Wenn ja dann:

Delphi-Quellcode:

ZQueryStatistikKunde.SQL.Text := 'select count(ID) from BEHANDLUNG where DATUM between :Datum1 and :Datum2 and KUNDENNUMMER = :Kunde'; 
ZQueryStatistikKunde.ParamByName('Datum1').AsString := '01.02.2009'; 
ZQueryStatistikKunde.ParamByName('Datum2').AsString := '28.02.2009'; 
ZQueryStatistikKunde.ParamByName('Kunde').AsString  := 'abcdef'; 
ZQueryStatistikKunde.Open;
SeriesPat.Add(ZQueryStatistikKunde.FieldValues['COUNT'],IntToStr(2),clRed); 
ZQueryStatistikKunde.Close;

funktioniert? Wenn ja dann:

Delphi-Quellcode:

Tage := MonthDays[IsLeapYear(Jahr), 2]; 
ZQueryStatistikKunde.SQL.Text := 'select count(ID) from BEHANDLUNG where DATUM between :Datum1 and :Datum2 and KUNDENNUMMER = :Kunde'; 
ZQueryStatistikKunde.ParamByName('Datum1').AsDate  := StrToDate('01.' + IntToStr(2) + '.' + IntToStr(2009)); 
ZQueryStatistikKunde.ParamByName('Datum2').AsDate  := StrToDate(IntToStr(28) + '.' + IntToStr(2) + '.' + IntToStr(2009)); 
ZQueryStatistikKunde.ParamByName('Kunde').AsString := ZQueryKundenDetail.FieldValues['KUNDENNUMMER']; 
ZQueryStatistikKunde.Open;
SeriesPat.Add(ZQueryStatistikKunde.FieldValues['COUNT'],IntToStr(2),clRed); 
ZQueryStatistikKunde.Close;

funktioniert? Wenn ja dann:

Delphi-Quellcode:

M1 := 2;
Tage := MonthDays[IsLeapYear(Jahr), M1]; 
ZQueryStatistikKunde.SQL.Text := 'select count(ID) from BEHANDLUNG where DATUM between :Datum1 and :Datum2 and KUNDENNUMMER = :Kunde'; 
ZQueryStatistikKunde.ParamByName('Datum1').AsDate  := StrToDate('01.' + IntToStr(M1) + '.' + IntToStr(2009)); 
ZQueryStatistikKunde.ParamByName('Datum2').AsDate  := StrToDate(IntToStr(Tage) + '.' + IntToStr(M1) + '.' + IntToStr(2009)); 
ZQueryStatistikKunde.ParamByName('Kunde').AsString := ZQueryKundenDetail.FieldValues['KUNDENNUMMER']; 
ZQueryStatistikKunde.Open;
SeriesPat.Add(ZQueryStatistikKunde.FieldValues['COUNT'],IntToStr(M1),clRed); 
ZQueryStatistikKunde.Close;

Wo gibt es jetzt den Fehler?
Was für 'ne Datenbank ist denn das?