Columnas adicionales en TDBGrid

[noob]

Ya te entiendo, he sacado un TDBGrid, dos TDataSource y dos dataset, mi estructura es la siguiente:

DBGrid1 --> DataSourceVentas --> DataSetVentas
DataSourceProductos --> DataSetProductos

he hecho esto pero no ocurre nada de nada, simplemente están todos los campos de la tabla Ventas pero no hay ningún botón en el campo Producto:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  with DatasetVentas do
    begin
      Open;
      FieldByName('Producto').LookupDataSet := DatasetProductos;
      FieldByName('Producto').LookupKeyFields := 'Codigo; Descripcion';
      FieldByName('Producto').LookupResultField := 'Codigo';
    end;
end;

¿Falta algo?

Un saludo.