No se si es correcto, pero lo implementé de la siguiente manera:
Código Delphi
[-]procedure TForm_Articulo.AsignarValores;
var
Consulta: TDataSet;
begin
Consulta := Modulo.DatosArticulo(eCodigo.Text);
With Consulta do
begin
eDescripcion.Text := FieldByName('Desc_Producto').AsString;
ePreUnitario.Text := FieldByName('Precio').AsString;
cbIVA.Text := FieldByName('Valor_IVA').AsString;
eGanancia.Text := FieldByName('Porcentaje_Ganancia').AsString;
eStock.Text := FieldByName('Cant_Existente').AsString;
eStockMinimo.Text := FieldByName('Cant_Minima').AsString;
eCantRep.Text := FieldByName('Cant_Reposicion').AsString;
cbSeccion.Text := FieldByName('Desc_Seccion').AsString;
cbCategoria.Text := FieldByName('Desc_Categoria').AsString;
cbProveedor.Text := FieldByName('Denominacion').AsString;
eCodProveedor.Text := FieldByName('Cod_Producto_Proveedor').AsString;
eUniProveedor.Text := FieldByName('Unidad_Proveedor').AsString;
eCodBarras.Text := FieldByName('Cod_Barras').AsString;
end;
end;
Leí sobre las interfaces y está muy bueno, pero necesito leer más para entender bien como usarlas.
Saludos!