Htaccess Login ausfüllen

[Amd]

Kann mir mal bitte jemand helfen?
Das klappt auch nicht!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  URL, Flags, TargetFrameName, PostData, 
  Headers: OleVariant; 
begin 
  // EdURL, EdPassword, and EdUserName is TEdit control 
  URL := EdURL.Text; 
  Flags := EmptyParam; 
  TargetFrameName := EmptyParam; 
  PostData := EmptyParam; 
  if (EdUserName.Text <> '') and (EdPassword.Text <> '') then 
    Headers := 'Authorization: Basic' + 
   Base64Encode(EdUserName.Text + ':' + EdPassword.Text) 
  else 
    Headers := EmptyParam; 
  WebBrowser1.Navigate2(URL, Flags, TargetFrameName, PostData, 
    Headers); 
end;