Método de procura em tabela indexada

Procedure TSaida.Edit1Change(Sender: TObject);
begin
Table1.setkey;
Table1Notasaida.AsString:=Edit1.text;
Table1.GotoNearest;
end;