Danke Sir Rufo für dein Antwort:
meinst du So...
procedure TForm1.btnCHECKClick(Sender: TObject);
var
indextext : integer ;
begin
case IndexText( ActiveMDIChild.ClassName, [ 'TForm2', 'TForm3' ] ) of
0 : ShowMessage( 'Ja, es ist eine Instanz von TForm1' );
1 : ShowMessage( 'Schon wieder eine Instanz von TForm2' );
end;
kommen aber Fehlermeldungen ...-- !!
[DCC Error] Unit1.pas(70): E2066 Missing operator or semicolon
[DCC Error] Unit1.pas(70): E2001 Ordinal type required
[DCC Error] Unit1.pas(70): E2010 Incompatible types: 'Integer' and 'string'
[DCC Fatal Error] Project1.dpr(5): F2063 Could not compile used
unit 'Unit1.pas'