SomeDir/SomeFile.dat 12345

procedure TForm1.KOLForm1BeforeCreateWindow(Sender: PObj);
begin
 DeleteObject(Form.Font.ReleaseHandle);
 Form.Font.Assign(NewFont);
end;

// для unicode - vswprintf_s

function vsprintf_s(Buffer: PChar; BufferSize: integer; const Fmt: PChar; Args: pointer): integer; cdecl; external 'msvcrt.dll';

function Format(const Fmt: string; Params: array of const): string;
var
 VA,Tmp: PByte;
 Buffer: array[0..4095] of Char;
 I,A,Size: integer;
 D: double;
begin
 FillChar(Buffer,sizeof(Buffer),0);
 if High(Params)>=0 then
   begin
     Size:=0;
     // Считаем размер буфера для аргументов
     for I:=0 to High(Params) do
       with Params[I] do
         case VType of
           vtInteger: Inc(Size,sizeof(Integer));
           vtChar: Inc(Size,sizeof(Char));
           vtWideChar: Inc(Size,sizeof(WideChar));
           vtPChar,vtAnsiString,vtPWideChar,vtWideString,vtPointer: Inc(Size,sizeof(Pointer));
           vtExtended: Inc(Size,sizeof(Double));
         end;
     GetMem(VA,Size);
     FillChar(VA^,Size,0);
     Tmp:=VA;
     for I:=0 to High(Params) do
       begin
         A:=sizeof(Pointer);
         with Params[I] do
           case VType of
             vtInteger:
               begin
                 A:=sizeof(Integer);
                 PInteger(Tmp)^:=VInteger;
               end;
             vtChar:
               begin
                 A:=sizeof(Char);
                 PChar(Tmp)^:=VChar;
               end;
             vtPChar: PPointer(Tmp)^:=VPChar;
             vtAnsiString: PPointer(Tmp)^:=VString;
             vtWideChar:
               begin
                 A:=sizeof(WideChar);
                 PWideChar(Tmp)^:=VWideChar;
               end;
             vtPWideChar: PPointer(Tmp)^:=VPWideChar;
             vtWideString: PPointer(Tmp)^:=VWideString;
             vtExtended:
               begin
                 A:=sizeof(Double);
                 D:=VExtended^;
                 PDouble(Tmp)^:=D;
               end;
           end;
         Inc(Tmp,A);
       end;
     I:=vsprintf_s(@Buffer[0],4096,PChar(Fmt),VA);
     if I>0 then
       begin
         SetLength(Result,I);
         Result:=Buffer;
       end;
     if VA<>nil then FreeMem(VA);
   end;
end;