Var MDIForm:Tform2;
Begin
MDIform := Tform2.Create(application);
End;
{Tänk på att du aldrig får ge varje MDI-fönster samma namn.
Ge dom typ fonster1,fonster2,fonster3 osv
tex så här:}

Var MDIForm:Tform2;
count:integer;
Begin
MDIform := Tform2.Create(application);
inc(count,1);
MDIform.Name := 'nameless'+IntTostr(count);
MDIform.Caption := 'namnlös'+IntTOstr(count);
end;