Deutsches Lazarusforum

Okay, habs geändert und es hat nur begin und end; gefehlt.
Danke für die schnelle Hilfe, das Forum ist top

procedure TForm2.Button3Click(Sender: TObject);
var m , kg , a , gum , guf , leicht, normal, maesig , aktiv , saktiv : real ;
begin

if not TryStrtoFloat(Edit1.Text,m)
then MessageDlg( 'Bitte trag deine Körpergröße ein!' , mtInformation , [mbOK] , 0) ;
if not TryStrtoFloat(Edit1.Text,kg)
then ...

Hallo Leute,
ich habe mich erst vor kurzem angemeldet und bin noch neu bei Lazarus. ich soll für die Schule ein Projekt entwickeln, bin dabei aber auf folgenden Fehler gestoßen...

procedure TForm2.Button3Click(Sender: TObject);
var m , kg , a , gum , guf , leicht, normal, maesig , aktiv , saktiv ...