procedure TForm1.Button1Click(Sender: TObject);
begin

end;

//Из десятичной в двоичную
procedure TForm1.Button2Click(Sender: TObject);
var
number:cardinal;
begin
 number:=strtoint(Edit1.text);
   Edit1.text:='';
  repeat
    if number mod 2 = 1 then
       Edit1.text:='1'+Edit1.text
    else
       Edit1.text:='0'+Edit1.text;
       number:=number div 2;
    until 
       number = 0;
end;

//из двоичной в десятичную
procedure TForm1.Button1Click(Sender: TObject); 
var
i,p: cardinal;
begin
p:=0;
for i:=1 to length(Edit1.text) do
   begin
   p:=p*2;
   if Edit1.text[i] = '1' then
      p:=p+1
   else if Edit1.text[i] <> '0' then
      ShowMessage('Ошибка преобразования'); 
   end;
Edit1.text:=inttostr(p);
end;
end.