كيف يتم انشاء procedure خاص ب form.show

[nebchadelphi]

مثلا ننشيء ال procedure كما يلي

كود :

procedure myshowform(f: tform); begin if f.Showing then Exit; f:=!!!!!.Create(nil); هنا المشكل f.FormStyle:=fsMDIChild; f.Show; end;