[ecfisa]

Hola miguelgalindo87.

Ya Casimiro te avisó de las etiquetas, así que vamos a la consulta

Yo haría:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Valor: string;
begin
  Valor:= InputBox('buscar','ingrese codigo','');
  if Valor <> '' then
    Table1.Locate('Campo_A_Buscar', Valor, []);
  ...
end;

Saludos.

Edito: Sé que pareceremos pesados, pero al principio es lógico que por desconocimiento cometas algunos errores y es nuestra función marcártelos, así que tengámonos mutua paciencia...

Por ejemplo, esta nueva pregunta debería ir en un nuevo hilo.