1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TmdiMain.Oeffne_MDIAUSWAHL;

var Header : String;

begin
  wincount:=wincount+1;
  Header:='Auswahl'+IntToStr(wincount);  //Hier die Caption zusammenbauen
  if CheckWindowFromMain(Header) then
  Begin
    m_mdiAuswahl:=TmdiAuswahl.create(Self);
    m_mdiAuswahl.Caption:=Header;
    m_mdiAuswahl.show;
  end;
End;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

function TmdiMain.CheckWindowFromMain(sCaption:String):Boolean;

var bStatus : boolean;
    i       : integer;

Begin
  bStatus:=TRUE;
  Begin
    for i := screen.Formcount - 1 downto 0 do
    if trim(screen.Forms[i].Caption) = trim(sCaption) then
    begin
      // ... dann hole es nach vorne
      screen.Forms[i].BringToFront;
      screen.Forms[i].Repaint;
      bStatus:=FALSE;
    end;
  end;
  CheckWindowFromMain:=bStatus;
end;