procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: Byte;
  r: Real;
begin
  // Проверяем правильность -----------------------------------------------------------
  if Length (Edit1.Text) > 7 then begin
    ShowMessage ('Слишком много ввели. Не более 7 символов');
    Exit;
  end;
  if Edit1.Text = '' then begin
    ShowMessage ('Введите хоть что-нибудь');
    Exit;
  end;
  i := 0;
  repeat
    Inc (i);
    if (Edit1.Text [i] <> '0') and (Edit1.Text [i] <> '1') then begin
      ShowMessage ('Вводить нужно "0" или "1"');
      Exit;
    end;
  until i = Length (Edit1.Text);
 
  // Преобразование -------------------------------------------------------------------
  r := 0;
  i := 0;
  repeat
    Inc (i);
    j := StrToInt (Edit1.Text [i]);
    r := r*2 + j;
  until i = Length (Edit1.Text);
  Edit2.Text := FloatToStr (r);
end;