Учет кассовых операций

type
  TAccount = class
  private
    FStartSumm: Currency;
    FDebit: Currency;
    FCredit: Currency;
  public
    constructor Create(ASumm: Currency = 0.00);
    procedure Debtor(ASumm: Currency);
    procedure Expense(ASumm: Currency);
    function LastSumm: Currency;
  end;
 
...
 
implementation
 
...
 
{ TAccount }
 
constructor TAccount.Create(ASumm: Currency = 0.00);
begin
  // при создании экземпляра задаем начальную сумму (по-умолчанию ноль)
  FStartSumm:= ASumm;
  FDebit:= 0.00;
  FCredit:= 0.00;
end;
 
procedure TAccount.Debtor(ASumm: Currency);
begin
  // увеличение суммы поступлений
  FDebit:= FDebit + ASumm;
end;
 
procedure TAccount.Expense(ASumm: Currency);
begin
  // увеличение суммы расходов
  FCredit:= FCredit + ASumm;
  // плюс, потому что здесь аккумулируется сумма расхода,
  // которая потом отнимается от начальной суммы
end;
 
function TAccount.LastSumm: Currency;
begin
  Result:= FStartSumm + FDebit - FCredit;
end;
 
end.

procedure TForm1.Button1Click(Sender: TObject);
var
  acc: TAccount;
begin
  // задаем начальную сумму
  acc:= TAccount.Create(15.60);
  // приход
  acc.Debtor(100.00);
  // расход
  acc.Expense(110.60);
  // вывод конечной суммы
  ShowMessage(FloatToStrF(acc.LastSumm,ffCurrency,10,4));
end;