Zuweisung wird übersprungen!

[mo_greene]

Bin gerade wieder am Programmieren und folgender Fehler ist aufgetaucht:

Delphi-Quellcode:

var
  menge : Integer;
begin
  
  if MengeEdt.Text <> '' then
  begin
    menge := 1;
    ZusammensetzungLb.Items.Add(Edit1.Text + IntToStr(menge));
  end;
end;

Irgendwie überspringt das Programm die Zeile

Code:

 menge := 1;

und daraufhin entsteht eine Fehlermeldung 'Kein gültiger Integerwert'. Woran liegt es, dass die Zeile einfach umgangen wird?

Danke !