Fórum Preciso de ajuda com uma busca. #184071

Tenho um formulário de cadastro de clientes. Ao clicar em ´Localizar´ o seguinte código é executado:

Dm.tbClientes.IndexName:=´idxTelefone´;
FmBuscaCli.ShowModal;
Dm.tbClientes.IndexName:=´´;


[b:76d578e152]O form ´FmBuscaCli´ tem o seguinte código:[/b:76d578e152]


procedure TFmBuscaCli.Edit1Change(Sender: TObject);
begin
dm.TbClientes.FindNearest([edit1.text]);
end;

procedure TFmBuscaCli.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=38 then dm.TbClientes.Prior;
if Key=40 then dm.TbClientes.Next;

end;

procedure TFmBuscaCli.BitBtn1Click(Sender: TObject);
begin

Close;
end;

procedure TFmBuscaCli.FormCreate(Sender: TObject);
var hfechar: THANDLE;
hMenuFechar: HMenu;
begin
hfechar := Self.Handle;
if (hfechar <> 0) then
begin
hMenuFechar := GetSystemMenu(hfechar, FALSE);
if (hMenuFechar <> 0) then
DeleteMenu(hMenuFechar, SC_CLOSE, MF_BYCOMMAND);

end;

end;

procedure TFmBuscaCli.FormShow(Sender: TObject);
begin
edit1.Clear;
Edit1.SetFocus
end;

end.


Essa codificação faz uma busca na tabela de clientes pelo Campo ´Telefone´. Como mudar a busca descrita acima para o campo ´Nome´? Não posso modificar muito esse código, pois o mesmo interage com demais forms.

Sou iniciante em Delphi, desde já eu agradeço!