Tæller

Kode 

procedure TForm1.FormCreate(Sender: TObject);
var
  MyINI: TINIFile; // TINIFile objektet
  PathToINIFile: String;
  Antal: Longint;
begin
  PathToINIFile := IncludeTrailingBackslash(ExtractFilePath(ParamStr(0)))+'Taeller.ini';

  MyINI := TINIFile.Create(PathToINIFile);
  Antal := MyINI.ReadInteger('Taeller', 'Antal', 0);
  MyINI.WriteInteger('Taeller', 'Antal', Antal+1);
  Label1.Caption := InttoStr(Antal);
  
  MyINI.Free;
end;