Frage zu Zeigern

[Muetze1]

Delphi-Quellcode:

Var
  ActiveElement: TComponent; // hier einfach entweder TMemo oder TEdit zuweisen

Begin
  If ( ActiveElement Is TMemo ) Then
    TMemo(ActiveElement).Lines.Text := 'Zur Zeit ist es ein Memo'
  Else If ( ActiveElement Is TEdit ) Then
    TEdit(ActiveElement).Text := 'Zur Zeit ist es ein Editfeld'
  Else
    ShowMessage('Irgendwas anderes, aber kein Memo und kein Edit!');
End;