[[Caral]]

Hola
Que poco observador soy.
Efectivamente duplicabas el procedimiento:

Código Delphi [-]
procedure Tfromprincipal.SpeedButton1Click(Sender: TObject);

Que bueno que lo solucionaras y lo mejor, solo.
Saludos