Danke für den Lösungsansatz. Habe mir jetzt eine Procedure gebastelt, die mir die Arbeit abnimmt.
Delphi-Quellcode:
procedure TfrmMain.CloseMDIChild(strChildName: String);
var
i: Integer;
begin
for i := 0 to frmMain.MDIChildCount - 1 do
begin
if (frmMain.MDIChildren[i].Name = strChildName) then
begin
frmMain.MDIChildren[i].Close;
break;
end;
end;
end;