Ajuda com banco de dados

Pessoal mim ajudem tenho um programa que faz uma pesquisa através dos componentes IBX no banco de dados interbase 6.0 numa tabela de lojas e tenho no meu formulário um edit onde ponho o numero da loja e aparece automaticamente o nome dela no outro edit
EX: coloco 1 e apareçe Matriz no outro edit

Agora minha duvida é como consigo fazer a pesquisa automaticamente sem apertar 1
Assim quando eu apertar enter ele vai lá e busca automaticamente o numero 1 e loja
Matriz aparecerem nos edits vou por o codigo para vcs entenderem melhor

function PegaNomeLoja(Loja:integer):string;
begin
if (DM.IBDSLOja.Locate(´Loja´,Loja,[loCaseInsensitive,loPartialKey]))
then
begin
Result:=DM.IBDSLoja.FieldValues[´DESCRICAO´];
end
else
begin
result:=´´;
end;
end;


procedure TFrmLogin.EditLojaExit(Sender: TObject);
var
nomeloja:string;
begin
///Se o nome da loja é como o edit.text for diferente da variavel que contém o nome da loja
if((Sender as TEdit).Text<>´´)then
begin
nomeloja:=PegaNomeLoja(StrToInt((Sender as TEdit).Text));
if(nomeloja<>´´)then
begin
EditComplemento.Text:=nomeloja;
editUsuario.SetFocus;
end
else
begin
ShowMessage(´A loja não existe!´);
(Sender as TEdit).Clear;
(Sender as TEdit).SetFocus;
EditComplemento.Text:=´´;
end;
end
else
begin
ShowMessage(´Digite o número da loja.´);
(Sender as TEdit).SetFocus;
end;
end;


Mim ajudem por favor preciso muito deste código desde já obrigado colegas