Kein Gleitkommawert

[klaus33]

Beim Starten des Programmes bekomme ich eine Fehlermeldung: Inkombatible Typen 1.50 ist kein gültiger Gleitkommawert.
[/delphi]
procedure TForm1.BeinzelerwClick(Sender: TObject);
begin
If Memo2.Lines.Strings[0]='2301' then
begin
Memo2.Lines[1]:='Bitte zahlen Sie '+FloatToStr(2.50)+' Euro';
LStatus.Caption:='2.50';
end else if Memo2.Lines.Strings[0]='2501' then
begin

Wenn ich diese Prozedur aufrufe dann erscheint die Fehlermeldung:

procedure TForm1.LeinEuroClick(Sender: TObject);
var einEuro:Real;
Status: Double;
Status2:Real;
begin
einEuro:=1;
Status:=StrtoInt(LStatus.Caption);
Status2:=Status-einEuro;
LStatus.Caption:=FloattoStr(Status2);
end;