[beZ_probleM]

Привет всем! есть код :

function about_rasa(a:string):string;
  var res : resource;
  begin  
    res := openResource('/'+a+'.txt');
    if (resourceAvailable(res)) then about_rasa:=readLine(res); 
    closeResource(res); 
  end;


......
z:= formAddChoice('Выберите расу героя', CH_EXCLUSIVE); 
         i:= choiceAppendString(z, 'Орки'); 
         i:= choiceAppendString(z, 'Люди');
         i:= choiceAppendString(z, 'Гномы');
         i:= choiceAppendString(z, 'Эльфы');
         addCommand(to_menu);
         addCommand(next);
         k:=formAddString(about_rasa('Orku'));
         repeat
           tmp:=getClickedCommand;
           y:=choiceGetSelectedIndex(z);
           if y=1 then begin formRemove(k); k:=formAddString(about_rasa('Orku')); end;
           if y=2 then begin formRemove(k); k:=formAddString(about_rasa('Ludu')); end;
           if y=3 then begin formRemove(k); k:=formAddString(about_rasa('Gnomu'));end;
           if y=4 then begin formRemove(k); k:=formAddString(about_rasa('Elfu')); end;
           
           if tmp=To_menu then begin ok:=true; menu:=true; end;
           if tmp=next then
                begin
                  ok:=true;
                  Pers.rasa:=y; 
                end;  
         until ok=true;

Вобщем должно быть так : при выборе какогото пункта formAddChoice ниже выводитсо в formAddString текст относящийся к етому пункту...
У меня никакого ВААЩЕ текста не выводит... токо formAddChoice...
мож ктото поможеТ розобратсо в чом проблема?