ort! procedur if/else na case of

Mam nastepujace problem. chcialbym przemienic kod z uzyciem struktur if/elsce na case of, jednak podczas prob deplhi7 pokazuje blad 'ordinal types require' czy cos podobnego, oto kod tej procedury:

procedure TfGlowna.bNextClick(Sender: TObject);
var
  iniFile: TIniFile;

begin
  iniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+ 'words.ini');

  slowo0 := iniFile.ReadString('Polish_Words', 'word0', 'error');
  slowo1 := iniFile.ReadString('Polish_Words', 'word1', 'error');
  slowo2 := iniFile.ReadString('Polish_Words', 'word2', 'error');
  slowo3 := iniFile.ReadString('Polish_Words', 'word3', 'error');
  slowo4 := iniFile.ReadString('Polish_Words', 'word4', 'error');
  slowo5 := iniFile.ReadString('Polish_Words', 'word5', 'error');
  slowo6 := iniFile.ReadString('Polish_Words', 'word6', 'error');

<font size=12>  if ePolishWord.Text = slowo0 then
  begin
    ePolishWord.Text := slowo1
  end
  else
    ePolishWord.Text := slowo0;</font>
  end;

Z gory dziekuje :)

no właśnie - ordinal type required - case można zrobić tylko dla zmiennych typu byte, integer itp.

THX, a czy moge jakos spobowac to zrobic, aby dalo sie uzywac wiekszej ilosci zmiennych tpu String

Co za problem uzyc ifow?

Case nie można, ale może zrobić coś na zasadzie tablica-pętla i w tej pętli if, żeby za dużo kodu nie było. A i rozbudować potem będzie łatwo :).