= StavkaNaloga + StepNalog;
end;
Rent: = Rent + StepRent;
end;
end;
end;
procedure TForm1.Timer1Timer (Sender: TObject);
begin
if Period <= MaxP then
begin
Period: = Period + StepP;
BitBtn1Click (Self);
end
else
Period: = MinP;
end;
procedure TForm1.lbedMaxNalogKeyPress (Sender: TObject; var Key: Char);
begin
if key = # 13 then BitBtn1Click (Self);
if not (Key in ['0 '.. '9', # 8, ',']) then Key: = # 0;
end;
end.
