Pessoal, to precisando muito de ajuda, meu sistema está consumindo muita memória,
Utilizo o seguinte pra abrir os forms à partir do formprincipal: procedure Tfmprincipal.SubGrupo1Click(Sender: TObject); begin if not Assigned (fmsubgrupo) then begin fmsubgrupo:=tfmsubgrupo.create(self); fmsubgrupo.show; exit end else fmsubgrupo.windowstate:=wsnormal; fmsubgrupo.BringToFront; fmsubgrupo.Show; end; Pra fechar utilizo o seguinte codigo no onclose dele: procedure Tfmgrupo.FormClose(Sender: TObject; var Action: TCloseAction); begin if codgrupo.text<>'' then data1.grupo:=strtoint(codgrupo.text); action:=cafree; fmgrupo:=nil; end; Existe uma forma melhor e q nao prejudique o desempenho??? Qualquer auxilio será bem vindo. Abraços, Robson Farias [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html