[@Rafa3L]

Код:

function SaveToXMLFile(s1, s2, s3, FileName: string): bool;
begin
 with TStringList.Create do
  begin
   Add('<?xml version="1.0" encoding="utf-16"?>');
   Add('<AssignmentQR text00_Вид="' + s1 +
       '" text01_Начальник="'       + s2 +
       '" text02_фио="'             + s3 + '" />');

   SaveToFile(FileName);
   Free;
  end;
 Result:= FileExists(FileName);
end;

4250