Was du laut deinem Beitrag #1 haben möchtest, ist der
URL der aktuellen Webseite in der Caption deiner EditForm
Delphi-Quellcode:
procedure TEditForm.WebBrowserDocumentComplete(Sender: TObject;
const pDisp: IDispatch;
var URL: OleVariant);
begin
// ...
self.Caption :=
URL;
end;