[dnwest]

Спасибо, но уже разобрался. Достаточно поменять пару строк.

Код:

procedure TForm2.Button1Click(Sender: TObject);
function AnsiToOem(AStr : String) : AnsiString;
  begin
    SetLength(Result, Length(AStr));
    //CharToOemBuff(PChar(AStr), PAnsiChar(Result), Length(AStr));
    CharToOem(PChar(AStr), PAnsiChar(Result));
  end;
var
  str: TStringList;
begin
  str := TStringList.Create;
  str.Add(AnsiToOem('ваорвыалиаовтаол!!! dfdsgfdsf!!!'));
  str.SaveToFile('test.txt');
  str.Free;
end;