Parece que se me adelanto eficsia
pero tambien existen estas posibles soluciones
Código Delphi
[-]var
cadena:String;
begin
cadena:='//ClubDelphi';
if (cadena[1]='/') and (cadena[2]='/') then WriteLn('Hola')
else WriteLn('Adios');
if Pos('//',cadena)=1 then WriteLn('Hola')
else WriteLn('Adios');
if AnsiStartsStr('//',cadena) then WriteLn('Hola')
else WriteLn('Adios');
ReadLn;
end.
Saludos...