Delphi-PRAXiS - Delphi Files löschen WENN sie existieren

abend...ich bin sicher dieses thema wurde schonmal durchgekaut, konnte allerdings nichts zu meinem problem finden, hoffe es weiß jemand rat.

mit diesem code lösche ich auf knopfdruck festgelegte files, das funktioniert auch sehr gut:

Delphi-Quellcode:

			uses

shellapi

function DeleteFile(const AFile: string): boolean;

var

sh: SHFileOpStruct;

begin

ZeroMemory(@sh, sizeof(sh));

with sh do

   begin

   Wnd := Application.Handle;

   wFunc := fo_Delete;

   pFrom := PChar(AFile +#0);

   fFlags := fof_Silent or fof_NoConfirmation;

   end;

result := SHFileOperation(sh) = 0;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

DeleteFile('C:\test\beispiel\test\*.*');

DeleteFile('C:\test\beispiel\beispiel2.dat') ;

DeleteFile('C:\test\beispiel\beispiel1.dat') ;

DeleteFile('C:\test\beispiel\beispiel.doc') ;

end;

end.

mein problem ist, wenn die beispiel.doc nicht existiert (oder eine der anderen, es sind temporäre files die erst nach einer weile erstellt werden) hängt sich das programm auf, und es kommt ne fehlermeldung das die aktion nicht ausgeführt werden konnte...das problem ist die nachfolgenden proceduren funktionieren nicht mehr richtig.

wie müsste ich den code ändern so das er die files nur löscht WENN sie existieren, sonst normal weitermacht ohne ne meldung?

danke!!!