Zahlenraten Delphi

Ich muss ein Programm erstellen, wo das Programm sich eine Zahl von 1 bis 100 aussucht und man muss diese erraten. ich hab den Quelltext so wie in der Aufgabenstellung umgesetzt, aber irgendwie funktioniert das Programm nicht. Kann mir jemand sagen, woran es liegen könnte?!


mein Quelltext:
unit Zahlenraten;

interface

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

type
TForm1 = class(TForm)
Panel1: TPanel;
ErgebnisPanel: TPanel;
Label1: TLabel;
NeuButton: TBitBtn;
RatenButton: TBitBtn;
AbbruchButton: TBitBtn;
EingabeEdit: TEdit;
procedure AbbruchButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure RatenButtonClick(Sender: TObject);
procedure NeuButtonClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

var Zufallszahl: integer;

procedure TForm1.AbbruchButtonClick(Sender: TObject);
begin
Close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Panel1.Caption:=`Zahlenraten`;
Label1.Caption:=`Bitte wählen Sie eine Zahl von 1 bis 100:`;
Randomize;
Zufallszahl:=Random(100)+1;
end;

procedure TForm1.RatenButtonClick(Sender: TObject);
var Eingabe : Integer;
begin
Eingabe:=StrToInt(EingabeEdit.Text);
Panel1.Caption:=`Text`;
if Eingabe=Zufallszahl
then
begin
ErgebnisPanel.Font.Color:=clRed;
ErgebnisPanel.Caption:=`Das war richtig!`
end
else
begin
ErgebnisPanel.Font.Color:=clBlue;
if Eingabe<Zufallszahl
then ErgebnisPanel.Caption:=`Die Zahl ist zu klein!`
else ErgebnisPanel.Caption:=`Die Zahl ist zu groß!`
end;
EingabeEdit.SetFocus;
end;

procedure TForm1.NeuButtonClick(Sender: TObject);
begin
Zufallszahl:=Random(100)+1;
EingabeEdit.Text:=` `;
ErgebnisPanel.Caption:=` `;
end;

end.