text und Umlaute

[af99]

Hallo Zusammen,

ich weis das dieses Thema bestimmt schon 1000000000mal behandelt wurde. Ich komme aber zu keiner Lösung.
Also Ich selektiere ein paar Daten aus dem SQL Server mit dem SQL Server Management Studio und speichere diese in eine Textdatei. Eines der Textfelder enthält Zeilenumbrüche die ich entfernen möchte. Anschliessend möchte ich das Ergebnis in einer neuen Datei speichern.
Hier nun das Problem.: Die Umlute gehen verloren. bzw. werden nicht im richtigen Zeichensatz dargestellt (aber hier nur mit Excel im Texteditor sieht alles gut aus).
Hier meine Procedure

Delphi-Quellcode:

procedure TForm9.BitBtn2Click(Sender: TObject);
var
  s, wagtext, alles : wideString;
  wagtext2 : widestring;
  feld1, feld2, feld3, rest : string;
  i : integer;
begin
  i := 0;
  assignfile(raus, OpenDialog1.FileName + '.neu');

  rewrite(raus);
  Readln(rein,s);
  alles := '';

  repeat
    i := i + 1;
    label3.caption := inttostr(i);
    Label3.Refresh;
    readln(rein,s);
    if pos(widestring('1afertigb2'), s) = 0 then
    begin
      alles := alles + s;
    end else
    begin
      alles := alles + s;
      wagtext := alles;
      feld1 := copy(alles,1,pos(';',alles) - 1);
      rest := copy(alles,pos(';',alles) + 1);
      feld2 := copy(rest,1,pos(';',rest) - 1);
      rest := copy(rest,pos(';',rest) + 1);
      feld3 := copy(rest,1,pos(';',rest) - 1);
      rest := copy(rest,pos(';',rest) + 1);

      wagtext := copy(wagtext,pos(';',wagtext) + 1, length(wagtext));
      wagtext := copy(wagtext,pos(';',wagtext) + 1, length(wagtext));
      wagtext := copy(wagtext,pos(';',wagtext) + 1, length(wagtext));
      wagtext := copy(wagtext, 1, length(wagtext) - 11);


//      SetLength(wagtext2,Length(wagtext));
//      wagtext := pchar(wagtext);
//      wagtext2 := pchar(wagtext2);
//          CharToOem(PChar(wagtext),PChar(wagtext2));


      if wagtext = 'NULL' then
        writeln(raus,feld1 + ';' + feld2 + ';' + feld3 + ';')
      else
      begin
        writeln(raus,feld1 + ';' + feld2 + ';' + feld3 + ';' + wagtext);
        memo1.lines.add(wagtext);
      end;

      alles := '';
    end;
  until eof(rein);
  CloseFile(raus);
  CloseFile(rein);
end;

Ich habe mir mal die Ein- und Ausgabedatei im Hexeditor angeschaut alle Umlaute werden auch hier gleich dargestellt. Nur in Excel und Access habe ich keine bzw. falsche Umlaute.

Kann mir einer helfen ???
Viele Grüße
Andreas