randomfrom example

procedure TForm1.Button1Click(Sender: TObject);
var
data:array of string;
i,n,k:integer;
x:string;
begin
n:=memo1.lines.Count;
SetLength(data,n);
 for i:=0 to n-1 do
 begin
 data[i]:=(memo1.lines[i]);
 k:=strtoint(edit1.text);
 end;
 randomize;
  for i:=1 to k do
  begin
  x:=RandomFrom(data);
  memo2.lines.add(x);
  end;
end;

end.