If-Abfrage wird ignoriert (D7)

[Hobbycoder]

Hi,

ich habe gerade ein etwas merkwürdiges Problem. In einem alten D7-Projekt muss ich ein paar Erweiterungen machen.

Delphi-Quellcode:

procedure TAuslastungList.SetZT(wer: string; ZT, zegeplant: Integer);
var
  ma: TAuslastungMA;
begin
  if wer<>'' then
  begin
    ma:=self.ItemByWer(wer);
    if not Assigned(ma) then
    begin
      ma:=TAuslastungMA.Create;
      ma.Wer:=wer;
      self.Add(ma);
    end;
    .
    .
    .
  end;
end;

Nach meinem Verständnis sollte also der Block nur ausgeführt werden, wenn in Wer ein string vorhanden ist.
Komischerweise wird aber der Block trotzdem ausgeführt. Ich kann's mir nicht erklären.
Eigentlich was ganz banales, aber ich steh irgendwie auf dem Schlauch.

Hab mal ein Screenshot angehängt. Darin kann man sehen, was der debugger auswirft.