Access - monatlich neue DB erstellen

[stephan3309]

Hallo Jürgen,
ich hab mir mal folgendes zurecht geschrieben:

Delphi-Quellcode:

function TForm1.Backup: Boolean;
var Year, Month, Day: Word;
    Vergleich: TDateTime;


begin
  Vergleich := Now;
  DecodeDate(Vergleich, Year, Month, Day);
  Result := Day = 1;
end;

procedure Backup_DB;
var clear_DB:Boolean ;
begin
  if TForm1.Backup.Result := 1 then begin
  Dateiname :=  'c:\test\backup\daten' + datetostr(now) + '.mdb';
  copyFileTo('c:\test\db\daten.mdb' , Dateiname );
  clear_DB := 1;
  end;

  if clear_DB := 1 then begin
  DataModule6.ADOTable1.Close;
  DataModule6.ADOTable1.Open;
  DataModule6.ADOCommand1.Execute;
  DataModule6.ADOTable1.Close;
  DataModule6.ADOTable1.Open;
  clear_DB := 0;
  end;

end;

Ich bekomme in der Zeile

if TForm1.Backup.Result := 1 then begin

einen Fehler beim Übersetzen, woran könnte das Liegen?

Könnt ihr sonst noch einen Denkfehler entdecken?