[[cHackAll]]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var Left, Index: Cardinal;
begin
 Left := 5;
 Randomize;
 RadioGroup1.Items.Clear;
 while LongBool(Left) do
  begin
   Index := Random(ListBox1.Count);
   RadioGroup1.Items.Add(ListBox1.Items[Index]);
//   ListBox1.Items.Delete(Index); // para no repetir...
   Dec(Left);
  end;
end;