Damit es sich wirklich bei jedem Click ändert:
Delphi-Quellcode:
var
altrw : integer;
procedure TForm1.Button2Click(Sender: TObject);
const
rw : integer;
txt: array[0..5] of string = ('Fisch','Eidechse','Vogel','Schwuppi','Lurchi','Hansi');
begin
repeat
rw:=Random(Length(txt));
until rw<>altrw;
Edit1.Text := txt[rw];
altrw:=rw;
end;
Altrw ist zwar eine globale Variable aber man kann sie ja auch in das Form verbannen.
Bei Detlefs Lösung
kann es so aussehen als würde der Text nicht geändert, da die gleiche Zufallszahl zweimal nacheinander kommt.
Ähm was möchtest Du denn jetzt?
Etwa so ähnlich?
Delphi-Quellcode:
txt := 'Hase-Hund-Maus-Dogge-Bunny-Mickey';
txt := 'Hase-Maus-Hund-Dogge-Bunny-Mickey';
txt := 'Dogge-Hase-Hund-Maus-Bunny-Mickey';
Gruß
K-H
/edit zu spät!