Open an ANSI file and Save a a Unicode file using Delphi

var
  strAnsi   : TGpTextFile;
  strUnicode: TGpTextFile;
begin
  strAnsi := TGpTextFile.Create('c:test.udl');
  try
    strAnsi.Reset; // you can also specify non-default 8-bit codepage here
    strUnicode := TGpTextFile.Create('c:test-out.udl');
    try
      strUnicode.Rewrite([cfUnicode]);
      while not strAnsi.Eof do
        strUnicode.Writeln(strAnsi.Readln);
    finally FreeAndNil(strUnicode); end;
  finally FreeAndNil(strAnsi); end;
end;

var
  sl : tStrings;
  Enc : tEncoding;
begin
  sl := tStringList.Create;
  Enc := TUnicodeEncoding.Create;
  try
    sl.LoadFromFile(fServerDir+'configurationhdconfig4.udl');
    sl.SaveToFile(fServerDir+'configurationhdconfig4.udl',Enc.Unicode);
  finally
    enc.Free;
    sl.Free;
  end;
end;