[Harima Hario]

Код:

procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var
  Str: String;
begin
  ComPort.ReadStr(Str, Count);

  if Copy(str,1,10) = 'START-PAGE' then
  begin
    //s := Form1.Memo.Lines.Strings[i];
    ProgressBar1.Min := StrToInt(Copy(str,10,6));
  end;
  if Copy(str,1,10) = 'STOP--PAGE' then
  begin
    //s := Form1.Memo.Lines.Strings[i+1];
    ProgressBar1.Max := StrToInt(Copy(str,10,6));
  end;
  //SetMinMax(Str);
  //SetProgress(Str);
  if Copy(str,1,4) = 'PAGE' then
  begin
    //s := Form1.Memo.Lines.Strings[i+1];
    ProgressBar1.Position := StrToInt(Copy(str,4,6));
  end;

  Memo.Text := Memo.Text + Str;
  Application.ProcessMessages;
end;

Использовал ProcessMessages в процедуре, увы не помогло… процесс заполнения компонента ТМемо виснит и все, хотя без прогрессбара все отлично работает. Может кто-то оставит номерок ICQ, я скину весь исходник… перерыл все форумы, книги, пока все очень печально.