Validação

Amigos:
Gostaria de contar com a ajuda de vocês para resolver o seguinte problema:
Tenho um campo definido como caracter que pode ser populado com numeros, alpha ou ambos, devendo os mesmo ficarem alinhados a direita. Fiz a função abaixo.
function TDbFunction.fAlinha(sCampo: String): String;
var
i,tamanho: integer;
aux: string;
begin
aux := trim(sCampo);
tamanho:= length( trim (sCampo));
sCampo:=´´;
for i:= 1 to (7 - tamanho) do
sCampo:= sCampo + ´ ´;
aux:= sCampo + aux;
Result:= aux;
end;

Faço sua chamada atravez do evento OnKeyDown que quando saio do campo com ENTER funciona belezinha, mas quando saio com TAB não funciona (obvio). Fiz tambem a chamada com OnKeyPress, mas tambem não funciona com TAB. Tentei colocar esta chamada no OnValidade do campo, mas dá erro ao validar
Vocês tem alguma sujestão para ajudar-me a resolver o problema?

Grato


Zekas