[ale_metall]

MMM, no me estoy dando cuenta...
mi units es la sig:

Código Delphi [-]
unit Unit7;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls, DB, DBTables, Buttons, ExtCtrls,
  ComCtrls, Grids, DBGrids;
type
  TForm7 = class(TForm)
    Table1: TTable;
    Table2: TTable;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Panel1: TPanel;
    SpeedButton3: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton5: TSpeedButton;
    DBNavigator1: TDBNavigator;
    GroupBox2: TGroupBox;
    Edit2: TEdit;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label3: TLabel;
    DBEdit2: TDBEdit;
    Label5: TLabel;
    DBEdit4: TDBEdit;
    Label4: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    SpeedButton1: TSpeedButton;
    DBEdit7: TDBEdit;
    Label6: TLabel;
    Label7: TLabel;
    DBEdit5: TDBEdit;
    DBEdit3: TDBEdit;
    Label2: TLabel;
    SpeedButton2: TSpeedButton;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    GroupBox3: TGroupBox;
    Edit3: TEdit;
    DBGrid1: TDBGrid;
    GroupBox4: TGroupBox;
    Edit4: TEdit;
    GroupBox5: TGroupBox;
    Edit5: TEdit;
    DBGrid2: TDBGrid;
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure Label8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form7: TForm7;
implementation
{$R *.dfm}
procedure TForm7.SpeedButton5Click(Sender: TObject);
begin
table1.edit;
 DBGrid2.ReadOnly:=false;
 GroupBox4.enabled:=true;
 GroupBox5.Enabled:=true;
 edit4.clear;
 edit5.Clear;
 edit4.setfocus;
 speedbutton5.enabled:=false;
 speedbutton9.enabled:=true;
 speedbutton12.enabled:=true;
 DBNavigator1.enabled:=true;
end;
procedure TForm7.SpeedButton3Click(Sender: TObject);
begin
  edit2.enabled:=true;
  speedbutton2.enabled:=true;
  edit2.setfocus;
  speedbutton3.Enabled:=false;
  pagecontrol1.Pages[1].TabVisible:=false;
  pagecontrol1.Pages[2].TabVisible:=false;
end;
procedure TForm7.SpeedButton8Click(Sender: TObject);
begin
if messagebox(self.Handle,pchar('¿Desea eliminar el registro seleccionado?'),
'Confirmación',MB_YESNO + MB_ICONQUESTION+MB_DEFBUTTON2)=IDYES then
    begin
     table1.edit;
     table1.Delete;
     table1.refresh;
   end;
 end;
end.

y cuando compilo me da el sig: [Error] Unit7.pas(58): Unsatisfied forward or external declaration: 'TForm7.SpeedButton12Click'

* El speedButton12 tambien me genera error cuando quiero acceder a sus eventos.