Operator ist auf diesen Operandentyp nicht anwendbar

[Die Muhkuh]

Erstmal Herzlich Willkommen in der DP

Du hast in Deinem Code sowieso unnütz viele begin end Konstrukte drin.

Hier mal übersichtlicher:

Delphi-Quellcode:

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);

  if L <= 7 then 
    a := 6;

  if (L > 7) and (L < 8.1) then 
    a := 7;

  if (L > 8) and (L < 9.1) then 
    a := 8;

  if (L > 9) and (L < 10.1) then 
    a := 9;

  Ausgabe := (L * T) + D;
  edtS.Text := FloatToStr(Ausagbe);
end;

Dein Fehler ist damit auch behoben.