Objekte finden, egal ob TLMDEdit oder TRzEdit

[DelTurbo]

Hallo,
wie kann ich abfragen ob ein Objekt im grunde ein TEdit ist. Egal ob es in wirklichkeit ein TRzEdit ober ähnlich ist.

Zur zeit mache ich das so. Aber ich müsste die Schleife immer ändern, bzw. erweitern wenn ich nun ein z.b. TLMDEdit auf dem Panel habe.

Danke im voraus

Delphi-Quellcode:

function GetDataFromGBox(var FN:TStringList;var FV:TStringList;Box:TPanel):Integer;
var
  obj   :TControl;
  i     :Integer;
begin
    Result:=0;
    Assert(Assigned(Box));
    for i:=0 to Box.ControlCount-1 do begin
      obj:=Box.Controls[i];
      if ( obj is TRzEdit ) then begin
        if ( Pos('_',TRzEdit(obj).Name)<>0 ) then begin
          FN.Add(Copy(TRzEdit(obj).Name,1,Pos('_',TRzEdit(obj).Name)-1));
          FV.Add(TRzEdit(obj).Text);
          inc(Result);
        end;
      end;
    end;
end;