procedure TForm1.Button1Click(Sender: TObject);
Var St:String;
begin
St:='http://delphiage.free.fr/';
if St[Length(St)]='\' then //Recupere le dernier caractere du string
ShowMessage('Il y a un /')
else
ShowMessage('Pas de /');
end;