[Romanzes]

Так попробуй

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;
           if tmp=To_menu then begin ok:=true; menu:=true; end;
           if tmp=next then begin
             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;
             ok:=true;
             Pers.rasa:=y; 
           end;  
         until ok=true;