Alkoholkonsum mit Algorithmus und Programm berechnen

[danielZ]

DAS IST MEINE UNIT:

Delphi-Quellcode:

unit UAlkoholkonsum_3;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, StdCtrls;

type
  TAlkoholkonsum = class(TForm)
    LblAlkoholkonsum: TLabel;
    closeBtn: TButton;
    BtnBerechnen: TButton;
    LblAngabe: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    LblErgebnis: TLabel;
    procedure closeBtnClick(Sender: TObject);
    procedure BtnBerechnenClick(Sender: TObject);
  private
    { Private-Deklarationen}
  public
    { Public-Deklarationen}
  end;

var Pas1B, Pas1W, Pas1S, ZwischenergebnisPas1, ErgebnisPas1 : SINGLE;


implementation

{$R *.DFM}


procedure TAlkoholkonsum.closeBtnClick(Sender: TObject);
begin
close
end;

procedure TAlkoholkonsum.BtnBerechnenClick(Sender: TObject);
const
  Prozent_Bier_Wein = 10.0;
  Volumen_Bier_Wein = 0.2;
  Prozent_Sprit = 40.0;
  Volumen_Sprit = 0.02;
begin
  Pas1B := strtofloat (Edit1.text);
  Pas1W := strtofloat (Edit2.text);
  Pas1S := strtofloat (Edit3.text);
  ErgebnisPas1 := (Pas1B + Pas1W) * Volumen_Bier_Wein * Prozent_Bier_Wein/100.0 + (Pas1S * Volumen_Sprit * Prozent_Sprit/100.0);
  LblErgebnis.caption := floattostr (ErgebnisPas1 * 52);
end;


end.


DAS IST MEIN PROJEKT:
program PAlkoholkonsum_3;

uses
  Forms,
  UAlkoholkonsum_3 in 'UAlkoholkonsum_3.pas' {Alkoholkonsum};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TAlkoholkonsum, Alkoholkonsum);
  Application.Run;
end.

DAS IST DER EINIZIGE FEHLER DES PROJEKTS:
[Fehler] PAlkoholkonsum_3.dpr(11): Undefinierter Bezeichner: 'Alkoholkonsum'


JETZT WEISS ICH NICHT, WAS ICH MACHEN SOLL, DAMIT MEIN PROGRAMM(FORM1) ANFAENGT ZU LAUFEN:

Es wäre nett, wenn mir einer helfen könnte.
gruß

[edit=Admin]Code in Delphi-Tags gesetzt. Künftig bitte selbst machen, danke. Mfg, Daniel[/edit]