const LvFileName = 'lv.dat'; procedure TForm1.FormCreate(Sender: TObject); begin if FileExists(LvFileName) then begin ListView1.Items.Clear; ReadComponentResFile(lvFileName, ListView1); end; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin WriteComponentResFile(LvFileName, ListView1); end;