Programmierung einer Kaskoversicherung

[Hüseyin123]

So ich bin zurzeit auf diesem stand

Delphi-Quellcode:

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

interface

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

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

    procedure SchliessenBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BerechneBtnClick(Sender: TObject);
 
  private
    { Private-Deklarationen}
  public
    { Public-Deklarationen}
  end;

var
  Kaskoversicherung: TKaskoversicherung;
  Zahl1: INTEGER ;
  Ergebnis : DOUBLE ;

implementation

{$R *.DFM}




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

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

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


end;


end.

ich kann jez die normal Rechnung := Schaden*0,75-50 durchführen, was auch richtig ist habe nämlich meinen Lehrer gefragt. Wenn der Schaden zb 60 Euro beträgt bekommt man gar nix zurück ,also bis 68,66€,denn da bekommt man 1 cent