DateTime-Variable einer Funtion übergeben

[sventeq]

Hallo zusammen, hab da ein kleines Problem. Ich muss ein Datum auf Samstag oder Sonntag prüfen. Das klappt auch alles ganz prima. Jetzt wollte ich diese Prüfung in einer Funktion auslagern und da bekomme ich jetzt eine Fehlermeldung.

"TMenuItem kann nicht zu TDateField zugewiesen werden"

Delphi-Quellcode:

function sa_so_pruefung(laufdatum1:tdatetime):tdatetime;
begin
  if dayofweek(laufdatum1)-1 = 6 then
                  begin
                    Result:=laufdatum1-1;
                    kapadb.kap001test.Prior;
                  end;
                  if dayofweek(laufdatum1)-1 = 0 then
                  begin
                    Result:=laufdatum1-2;
                    kapadb.kap001test.Prior;
                    kapadb.kap001test.Prior;
                  end;
end;

laufdatum:=sa_so_pruefung(laufdatum);

was mache ich da falsch? Wäre für etwas Hilfe echt dankbar