Agregar múltiples Campo de una tabla a múltiples TEdit y TdbEdit

[novato_erick]

Caral

Hola
Sigo sin entender.
Veo que se busca el proveedor y el nombre, me imagino que de una tabla, pero no veo que se recorra.
No creo que se pueda llenar mas de un dato si solo se pide uno.
No entiendo.

Esto fue lo que hice al hacer al evento dobleclick del DBGrid

Código Delphi [-]
 var
    cod_idProveedor,cod_idProveedor2,cod_idProveedor3: Integer;
    Nombre, Nombre2, Nombre3: String;

procedure TfrmBuscaProveedor.dbgBuscaProveedorDblClick(Sender: TObject);
begin
 cod_idProveedor := dmacceso.cdsProveedoresID.AsInteger;
 Nombre := dmacceso.cdsProveedoresNOMBRE.AsString;
 frmModificaArticulo.eProveedor1.Text := frmBuscaProveedor.Nombre;
 frmModificaArticulo.edbProveedor1.Text := IntToStr(frmBuscaProveedor.cod_idProveedor);
 cod_idProveedor2 := dmAcceso.cdsProveedoresID.AsInteger;
 Nombre2 := dmAcceso.cdsProveedoresNOMBRE.AsString;
 frmModificaArticulo.eProveedor2.Text := frmBuscaProveedor.Nombre2;
 frmModificaArticulo.edbProveedor2.Text := IntToStr(FrmBuscaProveedor.cod_idProveedor2);
 Close;
end;

Esta es la forma que yo estoy haciendo... y esta forma no me sirve porque me pone el mismo proveedor en los restantes edit y dbedit...


Saludos