var i:string;
begin
  i:=FloatToStr(123.123456);
  FrontSu:=Copy(i,1,Pos(i)-1);
  EndSu:=Copy(i,Pos(1)+1,Length(i)-pos('.',i));
end;