Problem mit Array

[Gehstock]

Delphi-Quellcode:

rName = packed record
   s   : String;
   id  : integer;
end;

var
TName : array[0..82] of rName = (  //der rest ist gekürzt
 (s:'Ford';id:256),
 (s:'Opel';id:257));

versuche ich aufzurufen mit

Delphi-Quellcode:

function StrToName(st : String): String;
var
ii : integer;
begin
  ii:=0;
  while TName[ii].s<>st do begin
   if st = TName[ii].s[ii] then begin
    result:=InttoStr(TName[ii].id);
    break;
   end;
   inc(ii);
  end;
end;

 Memo1.Lines.Add('Name : '+StrToName(s)); da wird aber nichts angezeigt