procedure Tfromninos.SpeedButton1Click(Sender: TObject);
begin
fromcinco6.ShowModal ;
end;
procedure Tfromninos.SpeedButton2Click(Sender: TObject);
begin
fromcinco6.ShowModal ;
end;
procedure Tfromninos.SpeedButton3Click(Sender: TObject);
begin
fromninos7.ShowModal ;
end;