Delphi - case

Dobrý den, hoj, všem...
Řešim takovej menší problém, jak je to u delphi s case ?
Nejdřív mi to hlásilo nějakou chybu o Ordinaly ...prostě něco s ordinálním typem, ok našel jsem že to je např. číslo 1, tak jsem zkusil case znova, i když moc mě to neuspokojuje protože chci testovat string, ale ok, řekl jsem si, že to zatim vyzkoušim.
Pak to hlásilo tuto chybu ';' expected but '.' found a ukazuje to na end. ... hlásí jí to pořád když dělám něco s case :(
myslim že ten kód musí bejt dobře, nevim v čem je chyba :( potřebuju poradit v čem může bejt chyba?

jj tam jsem koukal, taky nefunguje

//dalsi kod

...

implementation

var i: Integer;

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);

begin

i := 2;

case i of

1 : ShowMessage('Heellllooo');

2 : ShowMessage('Heellllooo');

3 : ShowMessage('Heellllooo');



end;



end.

Možná jsem jen slepej :))

aha díky, zkusim... :))

Ještě něco...(tamto funguje OK thx :) ) , ale třeba stringovou proměnnou testovat teda nejde ? to je docela ******* ne ? nebo to nějak jde ?

Njn, zatim díky, vlastně ještě něco :::
Myslíš že existuje něco, jako že to vybere ze souboru třeba po řádkách nějaký věty a otestuje je najednou ? Třeba že je rozdělí do polí ty jednotlivý řádky v tom souboru nebo tak něco...Jen by mě zajímalo, jestli taková funkce existuje