[Freeman]

Сообщение от dnwest

Я знаю, какая это кодировка, и тем не менее.
'TEncoding' does not contain a member named 'OEM'.

Да, гады. OEM у них нет, упустил. Тогда придется так:

Код:

var
  OEM: TEncoding;
begin
  OEM := TMBCSEncoding.Create(GetOEMCP);
  try
    str.SaveToFile('test.txt', OEM);
  finally
    OEM.Free;
  end;
end;

Если кодировка OEM используется везде в программе, лучше ее создать один раз и хранить где-то в полях класса/формы, а не пересоздавать каждый раз при использовании.