Código Delphi [-] procedure TfrIndices.SpeedButton1Click(Sender: TObject); begin Empaqueta('DIP'); hazindices('DIP'); end;
procedure TfrIndices.SpeedButton1Click(Sender: TObject); begin Empaqueta('DIP'); hazindices('DIP'); end;