myedit.SelectAll ersetzen durch (Sender as TEdit).SelectAll

[eddy]

Hallo Leute,

ich möchte

Delphi-Quellcode:

myedit : TEdit;

procedure TForm.Kopieren1Click(Sender: TObject);
begin
  myedit.SelectAll;
  myedit.CopyToClipboard;
end;

ersetzen durch:

Delphi-Quellcode:

procedure TForm.Kopieren1Click(Sender: TObject);
begin
  (Sender as TEdit).SelectAll;
  (Sender as TEdit).CopyToClipboard;
end;

bekomme aber immer nur: EInvalidCast - ungültige Typumwandlung.

Kann mir jemand bei der Lösung helfen?

mfg
eddy