TStringList im with übergeben

[himitsu]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  with TEdit.Create(nil) do
    ShowMessage(Self.ClassName);
end;

Ergebnis: "Form1", also die Form und nicht das Edit

PS: In einer normalen Funktion (keiner Methode) würde hier auch der Compiler meckern.