Ya te entiendo.
Algo más o menos así:
Código Delphi
[-]
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
ascii: byte;
begin
ascii:=MapVirtualKey(key, 2);
end;
Por cierto, para distinguir si las letras son mayúsculas, minúsculas o están acentuadas, creo que vas a necesitar sumergirte un poco más en las APIs de Windows.