Probs mit Variablentypen

[roxxy]

Ich stehe total aufm Schlauch...
Ich will dieses Prog schreiben, doch Delphi mag mich wohl irgendwie nicht mehr.
Ich wollte erst den Variablen den typ float zuweisen, aber dann wurde mir gesagt: undefinierter Bezeichner.
Jetzt habe ich double genommen und kann keine Typumwandlung mehr machen.
Ich hatte auch schon extended aber das hat auch absoult nicht funktioniert....

Hoffe, dass mir jemand mit guter Anleitung helfen kann...
Bin am verzweifeln...

Delphi-Quellcode:

unit Kasse;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    EdKasseAnfang: TEdit;
    EdFlaschen05Anfang: TEdit;
    EdFlaschen1Anfang: TEdit;
    EdFlaschen15Anfang: TEdit;
    EdKasseEnde: TEdit;
    EdFlaschen05Ende: TEdit;
    EdFlaschen1Ende: TEdit;
    EdFlaschen15Ende: TEdit;
    EdDifferenz: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
FlaschenAnfang:double;
FlaschenEnde:double;
KasseAnfang:double;
KasseEnde:double;
Einnahmen:double;
Differenz:double;
FlaschenDifferenz:double;
begin
 FlaschenAnfang:=(EdFlaschen05Anfang.text*0.5)+(EdFlaschen1Anfang.text)+(EdFlaschen15Anfang.text*1.5);
 FlaschenEnde:=(EdFlaschen05Ende.text*0.5)+(EdFlaschen1Ende.text)+(EdFlaschen15Ende.text*1.5);
 KasseAnfang:=EdKasseAnfang;
 KasseEnde:= EdKasseEnde;
 Einnahmen:=KasseEnde-KasseAnfang;
 FlaschenDifferenz:=FlaschenAnfang-FlaschenEnde;
begin
 if (KasseEnde-FlaschenEnde) not KassenAnfang then
  begin
   EdDifferenz:=(KasseEnde-FlaschenEnde)-KassenAnfang;
  end
  else
   EdDifferent:=0;
end;
end;
end.

Diese Fehler bekomme ich:

Delphi-Quellcode:

[Fehler] Kasse.pas(54): Inkompatible Typen: 'String' und 'Extended'
[Fehler] Kasse.pas(54): Inkompatible Typen: 'String' und 'Extended'
[Fehler] Kasse.pas(55): Inkompatible Typen: 'String' und 'Extended'
[Fehler] Kasse.pas(55): Inkompatible Typen: 'String' und 'Extended'
[Fehler] Kasse.pas(56): Inkompatible Typen: 'Double' und 'TEdit'
[Fehler] Kasse.pas(57): Inkompatible Typen: 'Double' und 'TEdit'
[Fehler] Kasse.pas(61): Operator oder Semikolon fehlt
[Fehler] Kasse.pas(64): Inkompatible Typen: 'TEdit' und 'Extended'