StrToFloat для ansi-строк без конвертации - ?

procedure TForm1.Button4Click(Sender: TObject);
const
 iter=10000000;
 c1='13563456,23899999999999999999999984569970';
 c2='1,2345670E-0003';
 c3='1,235E+13';
 c4='9999999999999';
var
 t1, t2, t3: cardinal;
 a1,a2,a3,a4:AnsiString;
 u1,u2,u3,u4:String;
 i: integer;
 r: real;
begin
 randomize;
 
 a1:=AnsiString(c1); a2:=AnsiString(c2);
 a3:=AnsiString(c3); a4:=AnsiString(c4);
 
 u1:=String(c1); u2:=String(c2);
 u3:=String(c3); u4:=String(c4);
 
 
 t1:=GetTickCount;
 for i:=1 to iter do
  begin
   r:=AnsiStrToFloat(a1);    // скопирована из delphi 7
   r:=r+AnsiStrToFloat(a2);
   r:=r+AnsiStrToFloat(a3);
   r:=r+AnsiStrToFloat(a4);
   if (r=0) then Beep;
  end;
 t1:=GetTickCount-t1;
 
 t2:=GetTickCount;
 for i:=1 to iter do
  begin
   r:=StrToFloat(u1);
   r:=r+StrToFloat(u2);
   r:=r+StrToFloat(u3);
   r:=r+StrToFloat(u4);
   if (r=0) then Beep;
  end;
 t2:=GetTickCount-t2;
 
 t3:=GetTickCount;
 for i:=1 to iter do
  begin
   r:=StrToFloat(String(a1));
   r:=r+StrToFloat(String(a2));
   r:=r+StrToFloat(String(a3));
   r:=r+StrToFloat(String(a4));
   if (r=0) then Beep;
  end;
 t3:=GetTickCount-t3;
 
 ShowMessage('Анси: '+IntToStr(t1)+#13+
             'Юникод: '+IntToStr(t2)+#13+
             'Конверт: '+IntToStr(t3));
end;