Fórum HTML erro pq ? #232244

pessoal no comando a baixo... dá erro fatal quando executado o aplicativo.. pq? alguém poderia me informar pq? uso o delphi 6.0

procedure TfrmSala.PrintHtml(HTMLSTRINGS: string);
var
vParam : Pointer;
HTMLDoc: IHTMLDocument2;
sfArray: PSafeArray;
begin
while m_bBodyAddSync do
Application.ProcessMessages;

m_bBodyAddSync := TRUE ;

try
if (Trim(HTMLSTRINGS) = ´´) then
Exit;

if CKrolagem.Checked then
HTMLSTRINGS := HTMLSTRINGS + ´<SCRIPT LANGUAGE=´JavaScript´>window.scrollBy(0,10000)</SCRIPT>´;

HTMLSTRINGS := StringReplace(HTMLSTRINGS,´>´, ´>´ + #13 + 10, [rfReplaceAll]);
HTMLDoc := (Browser.Document as IHTMLDocument2);

sfArray := SafeArrayCreateVector(VT_VARIANT, 0, 1);
if (sfArray <> nil) then
begin
SafeArrayAccessData(sfArray, vParam);

with tagVARIANT(vParam^) do
begin
vt := VT_BSTR;
bstrVal := StringToOleStr(HTMLSTRINGS);
end;

SafeArrayUnaccessData(sfArray);
:arrow: HTMLDoc.write(sfArray); //ta dando erro aqui...
SafeArrayDestroy(sfArray);
end;
finally
m_bBodyAddSync := FALSE;
end;
end;

desde já agradeço pela atenção...