Logré solucionar el problema utilizando el siguiente código, que dejo por si alguien lo necesita.
Utilizé el locate parcial como sugirió
movorack y funcionó.
Código Delphi
[-]procedure Form1.DBGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if key = ord('A') then begin
Tabla1.Locate('nombre', 'a', [loCaseInsensitive, loPartialKey])
end
else
begin
if key = ord('B') then begin
Tabla1.Locate('nombre', 'b', [loCaseInsensitive, loPartialKey])
end
else
begin
.......
y así sucesivamente hasta llegar a la Z
Muchas gracias por tu ayuda
movorack