Description

This code assigns an icon to a form when the form is created.

Code

procedure TForm1.FormCreate(Sender: TObject);
begin
  Icon.LoadFromFile('MDIChild1.ICO');
end;