[DUG]: OK, the boys are on the beers

[Alistair George]

This does it:
  NewString:='';
  For i:=1 to length(mailstring) do
  if mailstring[i]=' ' then NewString:=NewString+'%20' else 
NewString:=Newstring+Mailstring[i];
 //use the old bugger
  Mailstring:=NewString;
  ShellExecute(Application.Handle, nil,pchar(Mailstring),nil,nil, SW_SHOWNOACTIVATE);

---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED] 
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/