var N: PAnsiChar; begin Memo1.Lines.LoadFromFile('log.txt'); N:=PAnsiChar(Memo1.Lines.GetText); OEMToAnsi(N,N); Memo1.Lines.Text:=StrPas(N);