会社に転がってるdelphi７をいじり始めたのですが、

子フォームをボタンで開くと言うだけの事がなぜか動きません。

procedure TfrmEstimateEntry.btnOlditemClick(Sender: TObject);
begin

if not assigned(frmOlditem) then
begin
frmOlditem := TfrmOlditem.create(self);
frmOlditem.Show;
end;
end;

こんなプロシージャー書いたのですが、
フォームが開いていないにもかかわらず、ｉｆからendに飛んでしまいます。

フォームが開いていなったら開けって意味で書いたのですが、
何か認識が間違ってるのでしょうか？
implementationのusesにも子フォームのユニット名は記述してあります。

何か我ながらものすごい馬鹿くさいことを忘れている気もするんですが
宜しくお願いします。