Worte-wechsler

[origin]

Hallo Leute,
stehe echt auf'm Schlauch. Ich möcht gern einen kleinen Wort-Wechsler schreiben und hänge
da schon seit Stunden dran fest (totaler Anfänger).
Also eigentlich ne simple Sache, schätze ich.
Das Programm soll bei jedem Klick ein anderes Wort in der TEdit anzeigen.
Sonst nix. Kann mir bitte jemand helfen und mein Listing vervollständigen, dass das funzt.
Ich komme echt nich weiter so. Muss mir unbedingt mal ein Buch kaufen.
Konnte aber nich abwarten es selbst zu probieren...

Hier das Listing:

Delphi-Quellcode:

unit wortwechsel;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, Shellapi, ExtCtrls;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Button1: TButton;
    GroupBox2: TGroupBox;
    Image1: TImage;
    Button2: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;



implementation

{$R *.dfm}



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


//Link zur Homepage
procedure TForm1.Label1Click(Sender: TObject);
begin
     ShellExecute(Application.Handle, 'open',
               PChar(Label1.Caption), nil, nil,
               SW_ShowNormal);

               Cursor:=crHandPoint;
               Font.Color:=clBlue;
               Font.Style:=[fsUnderline];
end;


procedure TForm1.Button2Click(Sender: TObject);

 var txt: String;


 begin

      txt := 'Hase-Hund-Maus-Dogge-Bunny-Mickey';
    //txt := 'Fisch-Eidechse-Vogel-Schwuppi-Lurchi-Hansi';    (es gibt noch einige weitere Wortgruppen!!)

      Edit1.Text := txt;




end;

end.

Freue mich auf Eure Hilfe. Danke