Avoid StrPas, micro refactor

source/rtl/objpas/sysutils/sysstr.inc

Function FormatFloat(Const Format : String; Value : Extended; Const FormatSettings: TFormatSettings) : String;
...  
  Len:=FloatToTextFmt(PChar(@Buf[0]),Value,PChar(Format),FormatSettings);
  Buf[Len]:=#0;
  Result:=StrPas(Pchar(@Buf[0]));
End;

here, we have pointer to 1st char, and Len, so why not to call SetString with pointer/len? it will be faster than StrPas. StrPas is rather old-style.

Related, in the same file. Can avoid StrPas here too.

function AnsiExtractQuotedStr(var Src: PWideChar; Quote: WideChar): Widestring;
...
 P := Src;
 Q := StrEnd(P);
 if P=Q then
   exit;
 if P^<>quote then
   exit(strpas(P));