[ecfisa]

Hola disturbednoise.

Si no entiendo mal lo que estas buscando, un modo de hacerlo podría ser:

Código Delphi [-]
...
procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  DataSet.Open;
  StringGrid1.FixedCols:= 0;
  StringGrid1.FixedRows:= 1; // fila reservada para título
  StringGrid1.ColCount:= DataSet.FieldCount; // tantas columnas como campos
  // poner el nombre de campo como título de cada columna
  for i:= 0 to DataSet.FieldCount-1 do
    StringGrid1.Cells[i, 0]:= DataSet.Fields[i].DisplayLabel;
end;

procedure TForm1.btnAgregarClick(Sender: TObject);
var
  i: Integer;
begin
  // Si el dato ingresado existe, pasar campos al StringGrid
  if DataSet.Locate('NOMBRE_DEL_CAMPO_BUSCADO', Edit1.Text, []) then
  begin
    for i:= 0 to DataSet.FieldCount-1 do
      StringGrid1.Cells[i, StringGrid1.Row]:= DataSet.Fields[i].AsString;
    StringGrid1.Row:= StringGrid1.Row + 1; // nuevo dato
  end
  else  // si no existe mostrar error
    MessageBox(Handle, 'Artículo inexistente', '', MB_ICONERROR + MB_OK)
end;
...

Saludos.