procedure TForm1.Button1Click(Sender: TObject);
var St:String;
begin
St:='http://delphipage.free.fr/';
if Copy(St,0,7)='http://' then //Copy renvoie une sous-chaîne contenant Count caractères (7) ou éléments en partant de St[0]
ShowMessage('L''url contient bien le terme "http://"')
else
ShowMessage('L''url ne contient pas le terme "http://"');
end;