Programmierung einer Kaskoversicherung

[Hüseyin123]

Hallo,
ich weiss ich hab den Maß deutlich überschritten bei diesem Problem..Jedoch gucke ich mir meinen Algorithmus seit 2-3 Tagen an,finde aber den Fehler in meinem Algorithmus nicht.

Delphi-Quellcode:

 
unit UKaskoversicherung;
//----------------------------------------
//Projektname: Ein Kaskoversicherungsfall
//Version: V1.0
//Autor: Hüseyin Yilmaz
//Compiler: Delphi 4
//Letze Änderung: 25.12.09
//----------------------------------------

interface

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


type
  TKaskoversicherung = class(TForm)
    NeuwertEdt: TEdit;
    BerechneBtn: TButton;
    SchliessenBtn: TButton;
    ErstattungsbetragLbl: TLabel;
    Label1: TLabel;

    procedure SchliessenBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BerechneBtnClick(Sender: TObject);

  private

  public
    { Public-Deklarationen}
  end;

var
  Kaskoversicherung: TKaskoversicherung;
  Zahl1: double ;
  Ergebnis : double ;
  s: string    ;



implementation

{$R *.DFM}




procedure TKaskoversicherung.SchliessenBtnClick(Sender: TObject);
begin
close
end;

procedure TKaskoversicherung.FormCreate(Sender: TObject);
begin
NeuwertEdt.text := '' ;
ErstattungsbetragLbl.caption := '' ;

end;

procedure TKaskoversicherung.BerechneBtnClick(Sender: TObject);
begin
Zahl1 := strtofloat(NeuwertEdt.text) ;
ErstattungsbetragLbl.caption := floattostr (Zahl1*0.75-50) ;


IF Zahl1  <= 66.67 then begin
str(Ergebnis:8:2,s);
ErstattungsbetragLbl.caption := s
end;
begin
IF Zahl1 < 0 THEN BEGIN ErstattungsbetragLbl.caption := ' Der Schaden kann nicht im "-" bereich stehen !'
end
  else
  begin
    ErstattungsbetragLbl.Caption := Format('%.2n Euro', [Ergebnis]);
  end;





end;
end;
end.

Es kommt als Ergebnis immer 0,00 Euro raus..Ich verspreche euch, dass es bei meine letzte Frage ist