Dual,Dezimal und Hexadezimal Rechner ind Delphi

Tach leute,
ich habe folgendes problem:
ich muss ein Programm in Delphi6 schreiben das von allen drei Zahlensystemen in die jeweiligen anderen rechnet... nur wie?
ich habe bereits damit angefangen :

procedure pdual;
var Dez,Dua128,Dua64,Dua32,Dua16,Dua8,Dua4,Dua2,Dua1,rest : Integer;
begin
  if Dez-128>=0 then
  begin
   rest:=Dez mod 128;
   Dua128:=1;
  end
  else if Dez-64>=0 then
    begin
     rest:=Dez mod 64;
     Dua128:=0;
     Dua64:=1;
    end
    else if Dez-32>=0 then
      begin
       rest:=Dez mod 32;
       Dua128:=0;
       Dua64:=0;
       Dua32:=1;
      end
      else if Dez-16>=0 then
        begin
         rest:=Dez mod 16;
         Dua128:=0;
         Dua64:=0;
         Dua32:=0;
         Dua16:=1;
        end
        else if Dez-8>=0 then
          begin
          rest:=Dez mod 8;
           Dua128:=0;
           Dua64:=0;
           Dua32:=0;
           Dua16:=0;
           Dua8:=1;
          end
          else if Dez-4>=0 then
            begin
             rest:=Dez mod 4;
             Dua128:=0;
             Dua64:=0;
             Dua32:=0;
             Dua16:=0;
             Dua8:=0;
             Dua4:=1;
            end
            else if Dez-2>=0 then
              begin
               rest:=Dez mod 2;
               Dua128:=0;
               Dua64:=0;
               Dua32:=0;
               Dua16:=0;
               Dua8:=0;
               Dua4:=0;
               Dua2:=1;
              end
              else if Dez-1>=0 then
                begin
                 rest:=Dez mod 2;
                 Dua128:=0;
                 Dua64:=0;
                 Dua32:=0;
                 Dua16:=0;
                 Dua8:=0;
                 Dua4:=0;
                 Dua2:=0;
                 Dua1:=1;
                end
end;

jedoch ist dies nicht wirklich eine elegante lösung und funktioniert auch nicht richtig...

BITTE HELFT MIR!!!

schon mal danke im vorraus...