implementation 
 
{$R *.DFM} 
 
uses ChildWin, About; 
 
// ---------------------------------------------- 
procedure ohne(H: THandle); 
var s: longint; 
begin 
  s := Getwindowlong(H, GWL_STYLE); 
  setwindowlong(H, GWL_STYLE, 
    s and (not ws_dlgframe) and (not ws_border)); 
end; 
// ---------------------------------------------- 
 
procedure TMainForm.CreateMDIChild(const Name: string); 
var 
  Child: TMDIChild; 
begin 
  { create a new MDI child window } 
  Child := TMDIChild.Create(Application); 
  Child.Caption := Name; 
  ohne(Child.handle); // <-------- 
  //
  // eigene Routine zur Caption-Erstellung
  //
  if FileExists(Name) then Child.Memo1.Lines.LoadFromFile(Name); 
end;