Duda en maskedit

[trex2000]

Hola a todos:
Como le podria hacer para que en una ventana de busqueda cuando teclee una "S" me mande al primer registro que empiece con esta letra y asi sucesivamente hasta ahorita lo tengo en el evento onkeypress pero no hace nada a que se debera?

Udo bases de datos interbase y la instruccion que utilizo es la sig:

procedure TFConsCue.MaskEdit1KeyPress(Sender: TObject; var Key: Char);
begin
Modulo.IBQ_Consultas.Locate('NumCta',MaskEdit1.Text+Key,[loPartialKey]);
end;

De antamano muchas gracias