1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

uses 
  TypInfo; 

type 
  TNumericChoiceParent = (ncp_Mother, ncp_Father, ncp_Child); 

procedure TForm1.btChooseClick(Sender: TObject); 
var 
  S: string; 
begin 
  S := InputEdit.Text; 
  case TNumericChoiceParent(GetEnumValue(TypeInfo(TNumericChoiceParent), 'ncp_' + S)) of 
    ncp_Mother: ShowMessage('Hello Mom :o)'); 
    ncp_Father: ShowMessage('Hi, Dad -]'); 
    ncp_Child: ShowMessage('Shut up and eat your soup !-('); 
  else 
    ShowMessage('Who do you think that you are?'); 
  end; 
end;                    

1:
2:
3:
4:
5:

function StringIndex(such: string; aos: array of string): integer; 
begin 
  for Result := high(aos) downto 0 do if AnsiSameText(such, aos[Result]) then  
break; 
end;