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.