With Blöcke führen zu W1048 / Unsafe typecast of 'xyz' to 'Pointer'

[AWeber]

Hallo,

ich arbeite derzeit Code auf im Rahmen einer x64 Umstellung, dabei stoße ich immer wieder auf obiges Warning, was ich bisher nicht verstehe. Jemand eine Idee ob das einen tiefen Grund hat -- oder evtl. eine Compiler "macke".

z.B. gibt es folgende Code-Sequenzen

Code:

procedure TMyControl.Paint;
begin
  with Canvas do  // <-- W0148?
  begin
    ... Zeichen aufrufe
  end;
end;

procedure TMyControl.DoSome;
var
  edt: TEdit;
begin
  edt := TEdit.Create(self); 
  with edt do // W1048  TEdit to Pointer?
  begin
    Parent := self;
    Text := 'X';
    Left := 0;
    Top  := 0;
    Width := 128;
  end;
end;

Danke schonmal für erhellende Vorschläge - warum / wieso - ja ich weiss ich könnte den W1048 auch abschalten, aber dann gehen leider evtl. Sachen unter die meine x64 Umstellung torpedieren.

André