jeg kan ikk find' ud af det! øv

hvordan får jeg en popup der siger "IDIOT!" hvis man svarer forkert? Noget med at man skal skrive alle resultater, men det ved jeg ikke hvordan man gør?!

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus;

type
  TForm1 = class(TForm)
    Button1: TButton;
    MainMenu1: TMainMenu;
    Cls1: TMenuItem;
    procedure Button1Click(Sender: TObject);
    procedure Cls1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
  const
  fem_tabellen_tal: array[ 1..8 ] of integer = (5,10,15,20,25,30,35,40);

  var
    fem_tabellen_txt: array[ 1..8 ] of string;
    i : integer;

begin
  for i := 1 to 8 do
    showmessage( inttostr( fem_tabellen_tal[ i ]));

  for i := 1 to 8 do
    fem_tabellen_txt[ i ]:= inputbox('5 Tabellen', 'Hvad er 5*' + inttostr( i ) + '?','0');

  for i := 1 to 8 do
    showmessage( fem_tabellen_txt[ i ]);

end;

procedure TForm1.Cls1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.


Jeg siger mange tak for hjælpen på forhånd..

Kærligst Klås