Открития сайтов и соответстаия типов

[xTANATOSx]

var
s:string
begin
s:=edit1.Text;
ShellExecute(0,'Open',s,nil,nil,SW_ SHOW);
Нехочит работать видает ошибку [Error] Unit1.pas(32): Incompatible types: 'String' and 'PAnsiChar'
Как перевести?

[Alex21]

ShellExecute(0,'Open',PChar(s),nil,nil,SW_SHOW);