Системы счисления в Делфи.

[Noname.pas]

Пожалуста, кто знает помогите переделать программу-конвертер систем счисления, она работает только для целых чисел, а нужно, что бы она работала с любыми вещественными числами, очень прошу!! Вот код программы для целых чисел:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, MConnect, ObjBrkr, HTTPApp, HTTPProd;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    ComboBox1: TComboBox;
    Button1: TButton;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  x,p,num:integer;
implementation

{$R *.dfm}

procedure check;
begin
case x of
 10: Form1.Edit2.text:='A'+Form1.edit2.text;
 11: Form1.Edit2.text:='B'+Form1.edit2.text;
 12: Form1.Edit2.text:='C'+Form1.edit2.text;
 13: Form1.Edit2.text:='D'+Form1.edit2.text;
 14: Form1.Edit2.text:='E'+Form1.edit2.text;
 15: Form1.Edit2.text:='F'+Form1.edit2.text;
 else form1.Edit2.text:=inttostr(x)+form1.edit2.text;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Edit2.Clear;
 p:=strtoint(combobox1.items[combobox1.itemindex]);
 num:=strtoint(edit1.Text);
 x:=0;
 repeat
  x:=num mod p;
  check;
  num:=num div p;
 until num<p;
 x:=num;
 if x<>0 then check;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 Close;
end;

[Скандербег]

Автору темы:

В приведенном тексте кода найдите 7 синтаксических ошибок, из-за которых программа не будет скомпилирована. Поэтому утверждение, что "она работает" не корректно.

Никто не сможет догадаться что прячется в ComboBox1 без файла с расширением dfm. А что там находится достаточно важно чтобы разобраться в проблеме.

Публикуя свои проблемы надо учитывать такие "мелочи".

[Stilet]

Предлагаю альтернативу:

var e,d:integer;  s:string;k:integer;
begin
 s:='25.63';
 k:=pos('.',s);
 e:=StrToInt(copy(s,1,k-1));
 d:=StrToInt(copy(s,k+1,length(s)-k));
caption:=format('%x %x',[e,d]);
end;