1:
2:
3:
4:
5:
6:
7:

    begin
      List := TStringList.Create;
      for x := 0 to ExtractStrings(['\'],[' '],pchar(temp),List) -1 do
        begin
          List[x]:= ReverseString(List[x]);
          ListBox1.Items.Add(List[x]);
        end;					

1:
2:
3:
4:

Label1.Caption:='';
probestring:='Hallo, wie geht es Ihnen?';
for i:=length(probestring)-1 downto 0 do
        Label1.Caption:=Label1.Caption+probestring[i];					

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.PfadUmdrehen();
var i:Integer;
    versuch:String;
begin
Memo1.Text:=stringreplace(Label1.Caption,'\','\'+#13#10,[rfReplaceAll]);
for i:=Memo1.Lines.Count-1 downto 0 do
        versuch:=versuch+Memo1.Lines[i];
Label2.Caption:=versuch;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

var
  MyList: TStringList;
  i: Integer;
begin
  MyList := TStringList.Create;
  try
    ExtractStrings(['\'], [' '], PChar(Edit1.Text), MyList);
    for i := 0 to MyList.Count - 1 do
      MyList[i] := ReverseString(MyList[i]);
    MyList.Delimiter := '\';
    Edit2.Text := MyList.DelimitedText;
  finally
    MyList.Free;
  end;