Долго выходит из программы

procedure TSetCom.Button3Click(Sender: TObject);
var
  i:Integer;
  FilePath:string;
  kolstr,j:Integer;
begin
  if OpenDialog1.Execute then
  begin
  FilePath:=(OpenDialog1.FileName);
  if FilePath=' ' then
    exit;
    ProcDataButton.Enabled:=True;
 
  ListBox1.Items.Clear; // очистили DataListBox
  Memo1.Clear; //очистили PirometerDataMemo
 
  f:=TStringList.Create(); // создали объект типа TStrings
  f.LoadFromFile(FilePath); //загрузили в f текстовый файл
 
  for i:=0 to f.Count-1 do
      Memo1.Lines.Add(f.Strings[i]); //заполняем массив строками из объекта f
 
  f.Free; //освободили (уничтожили) объект f
  FilePath:='';
 
 kolstr := 1;
    for j := 0 to Memo1.Lines.Count-1 do
      if Length(Memo1.Lines.Strings[j])>6 then
         kolstr:=j;
    kolstr:=kolstr+1;
    //edit3.Text:=inttostr(kolstr);
    if (BatRadioGroup.ItemIndex=0) and (kolstr<>110)  then
       Application.MessageBox('Количество замеров не соответствует !','Внимание!',MB_OK);
    if (BatRadioGroup.ItemIndex=1) and (kolstr<>78)  then
       Application.MessageBox('Количество замеров не соответствует !','Внимание!',MB_OK);
  end;
 
end;