Progress Bar

[BWRobert]

Hallo,

Ich habe ehrlich lange gesucht aber nichts gefunden, was mir erklärt, wie ich eine Progressbar vernünftig in mein Programm einfüge
Ich habe seit 3 Wochen an meiner Schule Informatik und habe mal ein wenig herum probiert ... Da kam mir die Idee einen kleinen "Kalorienzäher" zu entwickeln
Hier der Code:

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    ProgressBar1: TProgressBar;
    EdFruehstueck: TEdit;
    EdMittag: TEdit;
    GroupBox1: TGroupBox;
    ChWeiblich: TCheckBox;
    ChMaennlich: TCheckBox;
    EdAbend: TEdit;
    BuRechne: TButton;
    BuEnde: TButton;
    PaEingenommen: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    PaTag: TPanel;
    EdEssen4: TEdit;
    EdEssen5: TEdit;
    EdEssen6: TEdit;
    EdEssen7: TEdit;
    EdEssen8: TEdit;
    procedure BuEndeClick(Sender: TObject);
    procedure BuRechneClick(Sender: TObject);
    procedure PaTagClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BuEndeClick(Sender: TObject);
begin
 close 
end;

procedure TForm1.BuRechneClick(Sender: TObject);
Var Zahl1, Zahl2, zahl3, zahl4, Zahl5,Zahl6, Zahl7, Zahl8, Zahl9 : Real;
begin
 Zahl1:= StrToFloat (Edfruehstueck.Text);
 Zahl2:= StrToFloat (EdMittag.text);
 Zahl3:= StrToFloat (EdAbend.text);
 Zahl5:= StrToFloat (EdEssen4.text);
 Zahl6:= StrToFloat (EdEssen5.text);
 Zahl7:= StrToFloat (EdEssen6.text);
 Zahl8:= StrToFloat (EdEssen7.text);
 Zahl9:= StrToFloat (EdEssen8.text);
 Zahl4:= Zahl1+Zahl2+Zahl3+Zahl5+zahl6+zahl7+zahl8+zahl9;    //Kalorien werden zusammengerechnet
 PaEingenommen.Caption:= FloatToStr (Zahl4);
end;

procedure TForm1.PaTagClick(Sender: TObject);
Var Zahl7 : Real;
begin
 if ChMaennlich.Checked then Zahl7:=2400;
 if ChWeiblich.checked then Zahl7:=1900;
 PaTag.Caption:= FloatToStr (Zahl7);
end;

end.

Nun wollte ich eine Progressbar einfügen, die Anzeigt wie viel Kalorien man am Tag schon von den Benötigten gegessen hat. (Dient zur Veranschaulichung)
Und so nebenbei: Wisst ihr vielleicht warum ich erst auf das Pannel Tag klicken muss damit die Kalorienanzahl angezeigt wird? (Man muss ja erst Männlich oder Weiblich auswählen)

Vielen Dank schonmal!

Grüße Robert