Всем привет! есть такая функция для конвертации dfm из бинарного в

Question

Всем привет! есть такая функция для конвертации dfm из бинарного в

текстовый формат:
function _Dfm2Txt(const InputFileName, OutputFileName: string; Encoding: TEncoding): Boolean;
var
InputFileStream, OutputFileStream: TMemoryStream;
StreamWriter: TStreamWriter;
Bytes: TBytes;
begin
Result := False;
InputFileStream := TMemoryStream.Create;
OutputFileStream := TMemoryStream.Create;
try
InputFileStream.LoadFromFile(InputFileName);

ObjectResourceToText(InputFileStream, OutputFileStream);

SetLength(Bytes, OutputFileStream.Size);
OutputFileStream.Position := 0;
OutputFileStream.Read(Bytes, 0, OutputFileStream.Size);

StreamWriter := TStreamWriter.Create(OutputFileName, False, Encoding);
try
StreamWriter.Write(Encoding.GetString(Bytes));
Result := True;
finally
StreamWriter.Free;
end;
finally
InputFileStream.Free;
OutputFileStream.Free;
end;
end;
вызов производится так
if _Dfm2Txt(ASrcFileName, ADstFileName, TEncoding.GetEncoding(1252)) then begin
......
end;
Если исходный dfm в кодировке 1252 ansi и содержит расширенные символы то они портятся.
Подозреваю что портит их ObjectResourceToText и что он только с юникодом работает правильно.
Можно конечно сконвертировать содержимое файла сначала в юникод и после ObjectResourceToText опять в 1252
но уж как то неkрасиво получается. Есть у кого мысли как обойти проблему?
Конечная цель перевести dfm в тестовый формат для последующей обработки.