Random string fro en liste

Hvordan laver jeg et program der tager en tilfældig linie fra en eller anden liste, og viser den?
(det må ikke være en ekstern liste. Den skal være i programmet)

procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
S: String;
List: TStringList;
begin
List := TStringList.Create;

for I := 1 to 100 do
List.Add('Linje ' + IntToStr(I));
Randomize;
S := List.Strings[Random(List.Count - 1) + 1];
ShowMessage(S);

List.Free;
end;

MVH
DiZpel

Forstår ikker dit spr.
Hvilken liste. En der er skrevet i listbox? eller en memo med mellemrum, eller i en masse editboxe?

Hvordan laver jeg et program der tager en tilfældig linie fra en eller anden liste, og viser den?
(det må ikke være en ekstern liste. Den skal være i programmet)

procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
S: String;
List: TStringList;
begin
List := TStringList.Create;

for I := 1 to 100 do
List.Add('Linje ' + IntToStr(I));
Randomize;
S := List.Strings[Random(List.Count - 1) + 1];
ShowMessage(S);

List.Free;
end;

MVH
DiZpel

Men det der er i liste, skal være noget jeg selv har skrevet. Hvordan gør ejg så det?

Hvis jeg har forstått det rett så kan du også bruke det til en ListBox som dette??

procedure TForm1.Button1Click(Sender: TObject);
var
S: String;
begin
Randomize;
S := ListBox1.Items.Strings[Random(ListBox.Items.Count - 1) + 1];
ShowMessage(S);
end;

MVH
DiZpel