procedure TForm1.FormCreate(Sender: TObject); begin If (Fileexists(GetCurrentDir+nomfichieravecextension) = true) then begin ListView1.Items.BeginUpdate; ReadComponentResFile(GetCurrentDir+nomfichieravecextension, ListView1); ListView1.Items.EndUpdate; end; end;