Form Yaratmada Bir Soru?

[salvation]

Merhaba;
Gösterilmek istenen formu, yaratılmamışsa yaratıp gösteren kodlar var aşağıda.

Kod: Tümünü seç

if Application.FindComponent('Form2') = nil then
  Application.CreateForm(TForm2,Form2);
Form2.Show;

Bu şekilde herhangi bir hata olmadan kullanabiliyorum.Fakat aşağıdaki gibi bir procedure haline çevirdiğim zaman, "Access Violation" Hatası alıyorum ve sonradan formu gösteriyor.

Kod: Tümünü seç

procedure TForm1.FormGoster(Formm:TForm; FormAdiStr:String; FormSinifi:TComponentClass);
begin
  if Application.FindComponent(FormAdiStr) = nil then
    Application.CreateForm(FormSinifi,FormAdiStr);
  Formm.Show;
end;

Şu şekilde kullanıyorum
.

Kod: Tümünü seç

FormGoster(Form2,'Form2',TForm2);

Normalde çalışırken procudure halinde neden hata verdiğini çözemedim

[hbahadir]

delphi syntax

procedure CreateForm(FormClass: TFormClass; var Reference);