MDI Child schließen

[AnyKey]

Hi,

wie kann ich ein bestimmtes MDIChild schließen, das ich an der Caption erkenne, das Problem, in der Caption scheint nichts drin zu stehen.

hier mal der bisherige code:

Delphi-Quellcode:

var Child : TfMDIChild;
var i     : integer;
begin
  for i := 0 to Child.MDIChildCount do  
  begin
    if Child.MDIChildren[i].Caption = fMain.TypeFlag then
    begin
      Child.MDIChildren[i].Close;
    end;
  end;
end;

Hoffe es weiß jemand wie man das realisiert.

Gruß
AnyKey