Ansi Encoding ohne Leerzeichen

[QuickAndDirty]

Hallo
Ich schicke aus einer Delphi APP ein Logfile an Einen Windows Rechner.
Diese Logfile soll in Notepad.exe dargestellt werden.

Delphi-Quellcode:

function TLog.Internal_GetEmailFile: String;
var alogtext:String;
begin
  result := '';
  Internal_ReadFile(alogtext);
  if tFile.Exists(fEmailFile) then
    Tfile.Delete(fEmailFile);
  TFile.WriteAllText(femailfile,UTF8Encode(aLogText), TEncoding.UTF8 );
  result := femailfile;
end;

Wie muss ich das Encoding beim Speichern einstellen damit nicht vor jedem Zeichen ein Leerzeichen steht?