1:
2:
3:
4:

procedure AnsiToAscii(var S: string);
begin
  CharToOemBuff(Pointer(S), Pointer(S), Length(S));
end;					

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

  S := 'Xcopy g:\meine Daten\Kontoauszüge\*.* d:\';
  For I := 1 to length(s) do
   begin
    CharToOemBuff(Pointer(s),Pointer(s),Length(S[i]));
   end;
   memo1.Lines.Add(S);
   memo1.Lines.SaveToFile('C:\test.bat');					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

procedure TForm1.Button1Click(Sender: TObject);

  function AnsiToAscii(s: string):string;
  begin
    setlength(result, length(s));
    CharToOemBuff(@s[1], @result[1], length(s));
  end;

  const sourcepath = 'e:\löl';
        targetpath = 'e:\lül';
        batchfile = 'e:\etest.bat';

var s: string;
   temp: Tstringlist;
   src, target : string;
begin
  src := AnsiToAscii(sourcepath);
  target :=AnsiToAscii(targetpath);
  s := 'echo *** batch-test ***'#13#10'Xcopy "' +
      includetrailingbackslash(src) +'*.*" "' +
      includetrailingbackslash(target) + '"';
  temp := tstringlist.create;
  temp.Text := s;
  temp.SaveToFile(batchfile);
  temp.Free;
end;