mach's so, dann funktionierts, grad selbst getestet
Delphi-Quellcode:
var txt: TextFile;
C: Char;
S: string;
begin
AssignFile(txt,'..\OEWABLog.txt'); //einmal dateinamen einfügen bitte
Reset(txt);
while not EoF(txt) do begin
Read(txt,C);
if C <> #0 then //<-- ohne das hier würde das selbe wie bei Memo1.Lines.LoadFromFile passieren
S := S + C;
end;
CloseFile(txt);
Memo1.Lines.Append(S);
end;