[lmikle]

Код:

var
  wStr : String; // слово
  cChr : Char; // буква
begin
  ...
  wStr := Trim(wStr);
  If wStr[Length(wStr)] = cChr Then
    Begin
      // оно самое!!!
      ...
    End;