[s0Creator]

Еник
Вот на этом сайте несколько исходников программ тестов

Oxalium
"case of" для String

Код:

if str1 = 'string1' then
//
else if str1 = 'string2' then
...

Или

Код:

function FindNum(s: string): integer;
const
  strArr: array[1..2] of string = ('string1', 'string2');
begin
  Result := High(strArr);
  while (s <> strArr[Result]) and (Result >= Low(strArr)) do
    Dec(Result);
end;
...
case FindNum('my string') of
  1: ...
end;

А вообще зря вы в одну тему вопросы пишите - так они и затеряются.