function Trace(txt:string):string;
Begin
  form1.Memo1.Lines.Add(txt);
End;


procedure TForm1.Button1Click(Sender: TObject);
var
  i           : integer;
  st_0, st_1  : integer;
  TxtLine     : string;
begin
  st_0 := 0;
  st_1 := 0;
  Memo1.Text := '';
  Trace('Исходная строка: '+Edit1.Text);
  TxtLine := Edit1.Text;
  For i := 1 to Length(Edit1.Text) Do
    Begin
      If StrToInt(TxtLine[i]) = 0 then st_0 := st_0 + 1;//inc(st_0)
      If StrToInt(TxtLine[i]) = 1 then st_1 := st_1 + 1;
      if (StrToInt(TxtLine[i]) <> 1) and (StrToInt(TxtLine[i]) <> 0) then
        Begin
          ShowMessage('Введено другое число, пожалуйста введите правильно!');
          Edit1.Text := '';
          Memo1.Text := '';
          Exit;
        End;
    End;
  If st_0 = st_1 then Trace('Нулей и единиц поровну [ 0 = 1]')
    Else
      If st_0 > st_1 then Trace('Нулей больше чем единиц [0 > 1] : 0')
        Else
          Trace('Нулей меньше, чем единиц [0 < 1] : 1');

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  edit1.Text:='';
  Memo1.Text:='';
end;

end.