Leer inicio de un string

[BDWONG]

Parece que se me adelanto eficsia
pero tambien existen estas posibles soluciones

Código Delphi [-]
var
  cadena:String;
begin
   cadena:='//ClubDelphi';

   //Opcion 1: comparando las dos primeras posiciones de la cadena
   if (cadena[1]='/') and (cadena[2]='/') then WriteLn('Hola')
   else WriteLn('Adios');

   //OpCION 2: Usando la funcion Pos que nos regresa la posicion donde se encuentra la "//"
   //si nos devuelve 1 esta al inicio de la cadena
   if  Pos('//',cadena)=1 then WriteLn('Hola')
   else WriteLn('Adios');

   //Opcion 3: Usanodo AnsiStartsStr nos devuevel true o false si una palabra se encuentra al inicio de la cadena
   if AnsiStartsStr('//',cadena) then WriteLn('Hola')
   else WriteLn('Adios');

   ReadLn;
end.

Saludos...