Vraag : Dossier van de controle ik er bestaat

De beste deskundigen,

I hebben dit om 3 listviews te laden en te bewaren aan file.

procedure TMainForm.FormClose (Sender: TObject; var Actie: TCloseAction);
begin
SaveListViewToFile (lstvGlucose, „Glucose.sav“);
SaveListViewToFile (lstvBolus, „Bolus.sav“);
SaveListViewToFile (lstvFoodDB, „FoodDB.sav“);
end;
(**)
procedure TMainForm.FormCreate (Sender: TObject);
begin
LoadListViewToFile (lstvGlucose, „Glucose.sav“);
LoadListViewToFile (lstvBolus, „Bolus.sav“);
LoadListViewToFile (lstvFoodDB, „FoodDB.sav“);
end;

But wanneer ik mijn toepassing de eerste keer de dossiers begin niet uitgangen yet.
so, word ik 3 keer een foutenmelding. Hoe ik this.
That kan verhinderen de programm eerste blik als fileexistotherwist it.

P cre�ërt

Antwoord : Dossier van de controle ik er bestaat

De opgerichte oplossing is zeer creatief, maar door gebrek de dossiers zullen in (worden opgeslagen of van) toepassingenomslag daarom zal geladen worden
   ExtractFilePath (Application.ExeName)    is onnodig.