Ok, jeg har skrevet lidt kode, som der kan arbejdes videre med.
Der skal indsættes to TTimer, 5 EditBoxe, 1 ListBox og 1 Button.
procedure TForm1.Button1Click(Sender: TObject);
begin
Listbox1.Clear;
If Edit1.text<>'' then Listbox1.Items.Add(Edit1.Text);
If Edit2.text<>'' then Listbox1.Items.Add(Edit2.Text);
If Edit3.text<>'' then Listbox1.Items.Add(Edit3.Text);
If Edit4.text<>'' then Listbox1.Items.Add(Edit4.Text);
Edit1.Visible:=false;
Edit2.Visible:=false;
Edit3.Visible:=false;
Edit4.Visible:=false;
Timer1.Enabled:=true;
Timer2.Enabled:=true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
tal,valgt:byte;
begin
tal:=Listbox1.Items.Count;
valgt:=random(tal);
Edit5.Text:=Listbox1.Items.Strings[valgt];
Form1.Caption:=Listbox1.Items.Strings[valgt];
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
Timer1.Enabled:=false;
end;
Det skulle i hvert tilfælde være starten til dit program
T dér