Ayuda a completar una busqueda

[salvanano]

La cuestion es que no quiero destruir las ventanas, ya que es una busqueda a la que quiero acceder siempre que necesite. el problema esta en que cuando yo pongo
procedure TForm1.Button1Click(Sender: TObject);
begin
if Form2.showmodal = mrOk then
begin
Table1.Locate('Nombre', Form1.Elegido,[]);
// operar con las tablas
end;
En este caso la variable elegido me la da como inexistente, pero la tengo declarada, y si solo pongo Elegido, me la da por buena, pero el programa no me funciona correctamente.
Podrias ayudarme a ayar el problema?
Gracias