"not enough actual parameters"?

[Phil88]

Ich bin dabei ein ganz simples Programm zu erstellen,bis jetzt lief auch alles ganz gut doch nun als ich dem Speedbutton einen Einzeiligen Hinweis geben wollte der in einem Standard Fenster dargestellt werden sollte kam folgende Fehlermeldung:
[Error] Unit1.pas(56): Not enough actual parameters

Hier der Sourcecode:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, StdCtrls, Buttons, Unit2;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Image1: TImage;
    SpeedButton3: TSpeedButton;
    StatusBar1: TStatusBar;
    procedure SpeedButton3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
Form2.Showmodal
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Panel1.Visible := False;
Statusbar1.Visible := False;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Panel1.Visible := True;
StatusBar1.Visible := True;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
ShowMessage;   <---------------[size=18][color=#ff0000]FEHLER[/color][/size]
end;

end.

[edit=SirThornberry]Delphi-Tags gesetzt - Mfg, SirThornberry[/edit]