Hola Agustin.
Si no te entiendo mal y tenés un TDBGrid, un TDataSource y un TAdoQuery donde: TDBGrid-> TDataSource -> TADoQuery
Entonces bastaría con hacer:
Código Delphi
[-]
...
ADOGrid.Close;
ADOGrid.SQL.Text:= 'SELECT CODIGO, SUPLIDOR FROM SUPLIDOR';
ADOGrid.Open;
...
Saludos.