[Act]

Код:

var s,
    r: string;
    leng,
    i,j,l : integer;
begin
  s:= inputbox('Input string', 'string here plz', 'as');
  leng := Length(s);
  i := 1; j := 0;
  while i <= leng do
  begin
    for j:= 1 to leng do
    begin
        r:='';
      for l := 1 to Leng do
      begin
         r := s[j] + s[i];
      end;
      memo1.Lines.Add(r)
    end;
    inc(i);
  end;

ну как то так, спать хочу вроде работает проверять больше лень. Работает правда только для 2 символов.