Problema de seleccion en BD

[martini002]

Saludos amigos, donde quiera que se encuentren.

En esta ocasion tengo un inconveniente bastante desconcertante,
porque segun he visto en algunos tutoriales, y pues usando el sentido comun
he intentado hacer esto(Me falla el sentido comun ahora :S):

Esto es un ejercicio para conocer como funciona este proceso,
pues lo he querido aprender, por lo util que es,
la cuestion es que tengo una BD con varios campos,
y quiero ingresar un codigo, y que este busque el codigo
y me devuelva el nombre del articulo, entonces he intentado hacerlo de esta manera:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Codigo:String;
begin
  Codigo:=Form1.Edit1.Text;
  if FileExists (ZConnection1.Database) then
    begin
      ZQuery1.Close;
      ZQuery1.SQL.Text:= 'SELECT NombreArticulo FROM InventarioArticulos WHERE CodigoArticulo = '+Codigo;
      ZQuery1.Open;
    end
  Else
  ShowMessage('BD No encontrada');
end;

El ZQuery esta conectado con el ZConnection, y con el DataSource,
ahora en la parte grafica Tenemos, un Edit, para leer el codigo,
y un DBEdit para mostrar el resultado, ese DBEdit tiene en su DataField, "NombreArticulo"
pero la cuestion es que cuando activo la aplicacion,
ya me tiene el nombre del producto escrito de una vez,
ahora cuando ingreso el codigo en este caso 101,
y le doy click, me arroja error,

SQL Error or missing database.

como siempre ya no se que pueda hacer, pues son mis primeros pasos
muchas gracias por su tiempo y ayuda