Fórum Programa não fecha #180015

Olá

tente esta estrutura ok..

Procedure TForm1.limite;
begin
AssignFile(control, ´c:\control.log´);
if not FileExists(´c:\control.log´) then
CriaControle;
else begin
Form1.Memo1.Lines.loadfromfile(´c:\control.log´);
Form1.Edit1.Text:=Form1.Memo1.Text;
Form1.Edit2.Text:=IntToStr(StrToInt(Form1.Edit1.Text)+1);
FindReplace(Form1.Edit1.Text,Form1.Edit2.Text, Form1.Memo1);
if StrToInt(Form1.Memo1.Text) > 5 then begin
removereg;
DeleteFile (´c:\log.log´);
if not Visible then
Form1.Show;
else
Application.Terminate // tente esta estrutura...
//Form1.Close; --> Aqui gostaria que o programa fosse fechado
end
else begin
DeleteFile (´c:\control.log´);
try
AssignFile(control,´c:\control.log´);
Rewrite(control,´c:\control.log´);
Append(control);
Write(control, Memo1.Text);
finally
CloseFile(Control);
end;
Memo1.Clear;
end ;
end;



Atenciosamente


Silvio Guedes.