이유를 모르겠습니다.
모든 작업(?)이 완료되기 전에 Progressbar가 먼저 완료 상태에 도달 합니다.
어떤 부분이 잘 못 되었는지..점 봐주세요!!!



procedure TMainForm.N6Click(Sender: TObject);
begin
FUser.Showmodal;
end;

procedure TMainForm.Linereject;
var
  Temp1, Temp2 : String;
  I, npos, num  : Integer;
  cnt : real;
begin
  Temp1 := '';
  Temp2 := '';
  num := Memo.Lines.Count;

  ProgressBar1.Visible := True;
  ProgressBar1.Position := 0 ;

  ProgressBar1.Max:= num;
  for I := 0 to num do Begin
    temp1 := memo.Lines[i];
    nPos := Pos(temp1, memo.text);
    Temp1 := Copy(Memo.text, nPos, 80) ;

    temp2 := temp2 + temp1;
    ProgressBar1.Position := ProgressBar1.Position + i;
  end;

  memo.Clear;
  memo.text := temp2;
  ProgressBar1.Position := 0 ;
  progressbar1.Visible := False;
end;