Перевод из 10-ной СС в 8-ную СС. Не получается с переводом дробных чисел, на целые код есть. (Язык Delphi)

[reijii_nia]

Доброго времени суток. Взял код, ДА ВЗЯЛ НЕ НАПИСАЛ, так как времени не было, но принцип ее работы понимаю, однако есть загвостка, с переводом из 10сс в 8сс дробной части, то есть по одной процедуре которая есть, дробную часть прога не считает. Знаю что разные типы данных
вот код:

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    edit1: TEdit;
    button1: TButton;
    label1: TLabel;
    Label2: TLabel;
    procedure button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
const
    zn : array [0..8] of char = ('0','1','2','3','4','5','6','7','8');
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function Convert(chis:integer):string;
begin
result:='';
repeat
    result:=zn[(chis mod 8)] + result;
        chis:=chis div 8;
until chis=0;
end;
 
procedure TForm1.button1Click(Sender: TObject);
var s,t:string; //число
    intc:integer; //целая и дробная части
    s1,frcc:real;
begin
s:=Edit1.text; //число
if pos(',',s)<>0 then
   begin
    intc:=Strtoint(copy(s,1,pos(',',s)-1)); //целая часть
    s1:=strtofloat(s);
    t:=floattostr(frac(s1));
    frcc:=Strtoint(t); // дробная часть
    Label1.Caption:=Convert(intc)+','+Convert(strtoint(frcc));
   end
else if  pos(',',s)=0 then
Label1.Caption:=Convert(StrToInt(s));
end;
end.

Помогите пожалуйста, перелопатил уже кучу информации, ничего нормально полезного не нашел, только как вытащить с помощью функции Frac дробную часть с нулем, а как это перевести в 8сс не знаю, там разные типы строк. Программа то запускается, но вот на дроби при расчете выдает ошибку типов интеджер.
ПОЖАЛУЙСТА ХЕЛП ПЛИИИЗ. через неделю сессия уже, а я прост застрял на этом, я уже в отчаянии. Кто реально сможет помочь подкину на чаек с печеньками.

http://www.programmersforum.ru/showthread.php?t=325583