Be Joy

// * Отлавливаем в browser переход по ссылке
procedure TForm1.WeberBeforeNavigate2(ASender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
 var
  S: String;
begin
  // * Получаем ссылку
  S := URL; 
  // * Сравниваем ссылку с условием
  if ( S[1] = 'external.test()' ) then 
  begin
    // * Отменяем переход по ссылке
    Cancel := True;
    // * Вызываем процедуру
    test;
  end
end;

Не совсем понятно что именно у вас "тормозит". Вы пытаетесь нарисовать на канве 1 000 000-1 линий или это канва со скороллом? Сложно давать какие-то советы по оптимизации того, что трудно представить.

Как вариант, можно попробовать усреднить соседние значения, что уменьшит объем данных вдвое.