Operator ist auf diesen Operandentyp nicht anwendbar

[KnutschKugel]

Hallo

Ich hoffe ihr könnt mir weiter helfen: Ich schreibe meine Facharbeit in Informatik und muss dazu ein Programm mit Delphi erstellen.
Ich muss dazu sagen, dass ich kompletter Anfänger bin, was Delphi betrifft.
Das Programm ist für einen Segelverein, der Gastlieger bekommt: Je nach Dauer des Aufenthalts (T), Länge des Bootes (L) und Anzahl der benötigten Duschmarken (D) soll errechnet werden, was der ganze Spaß kosten soll. Dann soll das Programm im Hintergrund diese Summen abspeichern, sodass sie nach Passwortabfrage wieder erscheinen und man beispielsweise Abrechnungen damit machen kann.
Mein Problem ist folgendes: Ich bekomm schon allein die Berechnung nicht hin

Hier mein Quelltext:

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    edtL: TEdit;
    edtT: TEdit;
    edtD: TEdit;
    edtS: TEdit;
    btnRechnen: TBitBtn;
    procedure btnRechnenClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnRechnenClick(Sender: TObject);
var L, T, D, a, Ausgabe: real;
Laenge:String;
begin
L:=StrToFloat(edtL.Text);
T:=StrToFloat(edtT.Text);
D:=StrToFloat(edtD.Text);

begin
if L<=7
then a:=6
end;
begin
if L>7 and L<8.1
then a:=7
end;
begin
if L>8 and L<9.1
then a:=8
end;
begin
if L>9 and <10.1
then a:=9
end;
begin
Ausgabe:=(L*T)+D;
edtS.Text:=FloatToStr(Ausagbe);
end;
end.

Ich hoffe ihr könnt mir weiter helfen

Liebe Grüße