Prüfung auf Assigned(MyObject) true obwohl MyObject nicht initialisiert wurde

[Schokohase]

Fassen wir alles zusammen, dann ergibt sich

Delphi-Quellcode:

procedure TfMain.Button1Click(Sender: TObject);
var
  In_A: string;
  slShow: TStringList;
begin
  In_A := '';
  slShow := nil;

  try
    if In_A = '' then
      exit;

    slShow := TStringList.Create;
  finally
    slShow.Free;
  end;
end;