ler primeiro caracter

Vc pode ler qualquer caracter de uma string como se ela fosse um vetor, para ler o primeiro da string x e guardá-lo na variável y (que deve ser do tipo char) é só fazer o seguinte:

y:=x[1];

Espero ter ajudado.
Com isso acho que já dá pra vc mesmo montar sua própria função.

Sem querer me meter mas,
Tito se o cara fosse um expert em delphi certamente nao procuraria ajuda em um forum e
se vc nao quer ajudar, o que tu tá fazendo aqui ô rapá?
Francamente...