[angvelem]

Возможно.

Код:

procedure TForm2.Button3Click(Sender: TObject);
var
  I, J : Integer;
  St :   String;
begin
  for I := 0 to Combobox1.Items.Count - 1 do
  begin
    St := ComboBox1.Items[i];
    while True do
    begin
      J := Random(ComboBox1.Items.Count);
      if J = I then
        Continue
      else
      begin
        St := St + ComboBox1.Items[J];
        Break;
      end;
    end;
  end;
end;

Тут показан только перебор, значения, думаю, сам "выкусишь".