To Increase Speed of an application

We are facing a typical problem while calling a form from a menu...we 
are using following sequences..


procedure TFrmMain.frm1Click(Sender: TObject);
var
  I,j: Integer;
begin
  j:=0;
  if ChkPlant() = false then
   exit;
  Screen.Cursor := crHourglass;
  for I := 0 to Screen.CustomFormCount-1 do
    if Screen.CustomForms[I].Name = 'FRM1' then j:=1;
   if j=0 then
      Application.CreateForm(TFRM1,FRM1);
  FRM1.ShowModal ;
  FRM1.free;
  Screen.Cursor := crDefault;
end;

Can u please help us any alternative to call a form to increase the 
speed

Arindam



------------------------ Yahoo! Groups Sponsor ---------------------~-->
Buy Ink Cartridges or Refill Kits for Your HP, Epson, Canon or Lexmark
Printer at Myinks.com. Free s/h on orders $50 or more to the US & Canada. http://www.c1tracking.com/l.asp?cid=5511
http://us.click.yahoo.com/sO0ANB/LIdGAA/ySSFAA/i7folB/TM
---------------------------------------------------------------------~->

CodeCoffer - new Delphi code protection Tool!
http://www.delphicollection.com/public/CodeCoffer.htm
---------------------------------------------------------------
Unsubscribe:[email protected]
List owner:[email protected]
--------------------------------------------------------------- 

Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/