Variablenfehler oder? ich weiß nichts mit den Fehlermeldungen anzufangen

[ItsMe1]

Hallo Leute,

Ich find den Fehler bei der Zeile mit dem then nicht und mit den anderen Fehlern kann ich auch nichts anfangen

Ich muss auch dazusagen das ich schon eine weile nichts mehr mit Delphi gemacht hab ....

Delphi-Quellcode:

  private
    w1 , w2 , w3 , wm , ww , h1 , h2, h3 , hm , hw , s1 , s2 , s3 ,sm , sw : real;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
  close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 wm:= 8.95;
 ww:= 7.52;
 hm:= 2.45;
 hw:= 2.09;
 sm:= 9.58;
 sw:= 10.49;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if form1.ComboBox1 = 0 then
  begin
    w1:= floattostr((strtofloat(wm)/1000)*strtofloat(Edit1.Text));
      label16.Caption:= w1;
  end;
end;

end.

wäre echt super wenn ihr mir helfen würdet