1:

s := '<base href="c:/temp/test/"><a href="linkme.html"> Link me </a>';					

1:

s := '<base href="file:///c:/temp/test/"><a href="linkme.html"> Link me </a>';					

1:

s := '<a href="file:///c:/temp/test/linkme.html"> Link me </a>';					

1:
2:
3:

<b>Erste Lokale Datei</b><br>
<a href="../zweite.html">nächste lokale Datei</a><br>
<a href="http://www.google.de">Google</a><br>					

1:
2:

<b>Zweite Lokale Datei</b><br>
<a href="test/linkme.html"> Zurück zur Ersten</a>					

1:
2:

  Memo1.Lines.Add('<b>Aus String erstellt</b><br>');
  Memo1.Lines.Add('<a href="erste.html"> Zur ersten lokalen Datei </a><br>');					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure WB_LoadHTMLFromList(WebBrowser: TWebBrowser; HTMLCode: TStrings);
var  ms: TMemoryStream;
     flag : Olevariant;
begin
  flag := 0;
  WebBrowser.Navigate('about:blank', flag,flag,flag,flag);
  while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do
    Application.ProcessMessages;

  if Assigned(WebBrowser.Document) then
    begin
      ms := TMemoryStream.Create;
      try
        HTMLCode.SaveToStream(ms);
        ms.Seek(0, 0);
        (WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));
      finally
        ms.Free;
      end;
    end;
end;					

1:

WB_LoadHTMLFromList(WebBrowser1,Memo1.Lines);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  If (Length(URL) > 11) and
     (Pos('about:blank',URL) = 1) then
     begin
     Cancel := True;
     WebBrowser1.Navigate('c:/temp/test/'+Copy(URL,12,MAXINT),Flags,Flags,Flags,Flags);
     end;
end;