problem beim erstellen einer Funktion

[sigma]

also ich hab immer noch das selbe Problem es läuft einfach nicht
hier ist mal mein Quelltext vielleicht findet von euch ja jemand den fehler

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Taste (tas:Tbutton);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation
procedure TForm1.Taste (tas:Tbutton);
var strZahl: string;
    dblX : double;
begin
         if Form1.edtEingabe.Text = '0'  then
            Form1.edtEingabe.Text := tas.caption
            else
            Form1.edtEingabe.Text := form1.edtEingabe.Text + tas.Caption;
            strZahl := edtEingabe.Text;
            dblX := StrToFloat (StrZahl);
end;

so bin nur noch bis um halb eins auf der arbeit
melde mich dann morgen wieder hoffe das ihr mir vielleicht weiter helfen könnt