Hvorfor virker det ik'??

Hej alle! Et problem til:

Jeg har en TEdit hvor brugeren kan indtaste et ord. Et tryk på go knappen skal så Chekke om vært enkelt tal/bogstab er i en bestemt mængde i en konstant. Hvis TEdittens indhold er i const a så skal den tegne en cirkel et sted.

Hvis TEdittens indhold er i const b så skal den tegne en cirkel et andet sted o.s.v. det jeg har skrevet indtil videre ser sådan ud men det virker ikke:-( hvorfor?:

procedure Form1.BGoClick(Sender: TObject);
const
    a: string = 'ajsøAJSØ';
    b: string = 'bktåBKTÅ';
    c: string = 'cluCLU';
    d: string = 'dmvDMV';
    e: string = 'enwENW';
    f: string = 'foxFOX';
    g: string = 'gpyGPY';
    h: string = 'hqzHQZ';
    j: string = 'iræIRÆ';
var
  i: Integer;
  Navn: String;
  Tal: Integer;

begin

    Tal := 0;

    Navn:= ENavn.Text;

    for i := 1 to length(Navn) do
      if pos(Navn[i],a) = 0 then Tal := 1;
    for i := 1 to length(Navn) do
      if pos(Navn[i],b) = 0 then Tal := 2;
    for i := 1 to length(Navn) do
      if pos(Navn[i],c) = 0 then Tal := 3;
    for i := 1 to length(Navn) do
      if pos(Navn[i],d) = 0 then Tal := 4;
    for i := 1 to length(Navn) do
      if pos(Navn[i],e) = 0 then Tal := 5;
    for i := 1 to length(Navn) do
      if pos(Navn[i],f) = 0 then Tal := 6;
    for i := 1 to length(Navn) do
      if pos(Navn[i],g) = 0 then Tal := 7;
    for i := 1 to length(Navn) do
      if pos(Navn[i],h) = 0 then Tal := 8;
    for i := 1 to length(Navn) do
      if pos(Navn[i],j) = 0 then Tal := 9;

    if Tal = 1 then
    begin
        ICanvas.Canvas.Ellipse(5,0,38,31);
        ICanvas.Canvas.TextOut(16,0,'1');
    end;
    if Tal = 2 then
    begin
        ICanvas.Canvas.Ellipse(70,0,103,31);
        ICanvas.Canvas.TextOut(80,0,'6');
    end;
    if Tal = 3 then
    begin
        ICanvas.Canvas.Ellipse(135,0,168,31);
        ICanvas.Canvas.TextOut(145,0,'9');
    end;


     
end;

end.

mening= hvis nu fx. der i editten står: ERIK
så findes
E'et i konstanten e
R'et i konstanten i
I'et i konstanten i og
K'et i konstanten b

Så skal den alså tegne 4 ringe på de rigtige steder! i forhold til hvilken konstant de er i:-)