Delphi - Problema en comparacion de caracteres

[nicoe88]

Hola, tengo un problema.. Al comparar dos caracteres en vez de hacer eso los asigna :S

Aquí les dejo el código:

(es una función que a partir de un char que ingresa como parámetro, busca ese carácter en un string global y devuelve verdadero si existe en ese string)

Código PHP:

  function repetida(letra:char):boolean;
var
  i:integer;
begin
    i:=0;
    repetida:=false;
    while(palabra2[i]<>'*')do begin
       if (palabra2[i]=letra) then repetida:=true;
       i:=i+1;
    end;
end;  
   

Siempre me devuelve verdadero... No sé qué podrá ser :/

Gracias de antemano!

PD: en el while va hasta un asterisco, eso marca el final del string.