procedure TfrmCashier.btnSubmitSpeedOfDispenceClick(Sender: TObject);
begin
  SpeedOfDispence:=1;
end;
 
procedure TfrmCashier.FormCreate(Sender: TObject);
var
 NewPriceRec : TPrices;
 filePricerec : TPrices;
begin
  assignfile(Pricesfile,'Staff.dat');
  rewrite(Pricesfile);
 with NewPriceRec do
  begin
  PricePerLitre:=PriceLitreEdt.Text;
  closefile(Pricesfile);
end;
end;
 
procedure TfrmCashier.FormDestroy(Sender: TObject);
begin
  assignfile(Pricesfile,'Staff.dat');
  rewrite(Pricesfile);
  write(Pricesfile)
end;
 
End.

procedure TfrmCashier.FormCreate(Sender: TObject);
  var
    NewPriceRec : TPrices;
    Pricesfile : file of TPrices;  // 1
  begin
    assignfile(Pricesfile,'Staff.dat');
    try
      PricePerLitre := 5.999;  // 2
      reset(Pricesfile);  //3
      try
        read( Pricesfile, NewPriceRec );
        PricePerLitre := NewPriceRec.PricePerLitre
      finally
        closefile(Pricesfile)
        end
    except end
  end;