Borrar ficheros del disco con dephi

procedure Tfrm.BorrarFichero(fichero: String);

begin
if FileExists(fichero) then
 DeleteFile(fichero);
end;