[FM] Free auf nil wird zu self.free

[Darlo]

Hallo zusammen,

mir ist gerade etwas merkwürdiges unter FM aufgefallen.

Folgender Beispielcode

Code:

procedure TForm1.btnTestClick(Sender: TObject);
var
  sl: TStringList;
begin
  sl.Free;
end;

Führt unter Firemonkey dazu, dass der Button freigegeben wird, unter VCL kommt es
wie zu erwarten zu einer Exception.

Kann mir jemand das Verhalten unter FM erklären, oder ist es ein Bug?

Gruß