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