Rotina para Popular Grid

procedure FF_Popular_Grid_Produtos();

//------------------------------------------------------------------------------
procedure TF_Produtos.FF_Popular_Grid_Produtos();
varff_str_sql_texto: TStrings;
begin
try
ff_str_sql_texto:= TStringList.Create();
ff_str_sql_texto.Add('Select * from Produtos order by Prod_Nome ');
self.ADOQuery_Produtos.Active:= False;
self.ADOQuery_Produtos.SQL.Clear();
self.ADOQuery_Produtos.SQL := ff_str_sql_texto;
self.ADOQuery_Produtos.Active:= True;
except on
E:Exception do begin
ShowMessage('Ôpa, ocorreu um erro na busca por produtos! Veja: ' + E.Message);
end;
end;
end;