スッキリ！！スッキリ！！スッキリ！！
if not assigned(frmOlditem) then
frmOlditem := TfrmOlditem.create(self);
frmOlditem.Show;