[Casimiro Notevi]

Creo que lo puedes acortar un poco. (escribo de memoria):

Código Delphi [-]
procedure TForm1.dbgrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if key in ['a'..'z'] then
    tabla1.locate('nombre', key, [locaseinsensitive,lopartialkey]);
end;