Åbne en URL fra Delphi

Jeg har tidligere anvendt nedenstående til at åbne en URL med. Men jeg må have været heldig med de URLs jeg har arbejdet med for jeg finder nu ud af at hvis der ikke står www først, så vil Windoze ikke åbne den.
Nogen der har en anden metode eller evt. en metode til at kontrollere og justere en URL under indtastning. Altså fjerne ugyldige tegn og fylde manglende på.

function TFiles.ExecuteNormal(const aFile: string; aParam: string = ''): integer;
var
  SEInfo: TShellExecuteInfo;
begin
  ZeroMemory(@SEInfo, sizeof(SEInfo));
  with SEInfo do
    begin
      cbSize := SizeOf(SEInfo);
      fMask := SEE_MASK_INVOKEIDLIST;
      Wnd := Application.Handle;
      lpVerb := 'open';
      lpFile := PChar(aFile);
      lpParameters := PChar(aParam) ;
      nShow := SW_NORMAL;
    end;
  ShellExecuteEX(@SEInfo);
  Result := ExitCode;
end;