procedure TForm1.Button5Click(Sender: TObject);
var Sparen: Integer;
begin
if arbeiter < 10 then
begin
if Geld > 99 then
begin
Geld := geld - 100;
sparen := arbeiter * 2;
GeldTimer.Interval := GeldTimer.Interval - sparen;
Panel4.Caption := inttostr(arbeiter);
Panel7.Caption := inttostr(geld) + ' €';
end
else
showmessage('Sie besitzen nicht genung Geld!');
end
else
showmessage('Sie besitzen schon 10 Arbeiter!');
end;