[Decoding]

Так эта процедура и ищет с учетом регистра. А если надо без учета, то замени

Код:

 
p:=pos(aText,aMemo.Text);

на

Код:

 
p:=pos(AnsiUpperCase(aText),AnsiUpperCase(aMemo.Text));