[gif13]

Один выводит сообщение, другой устанавливает шестнадцатеричный вывод и символ заполнения _, предусмотрите обработку ошибок. Помогите кто может плз!

[gif13]

Осталось только сделать заполнение едита _
Вот код

Код:

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm5 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;
  a:integer;

implementation

{$R *.dfm}


procedure TForm5.Edit1KeyPress(Sender: TObject; var Key: Char);
var q:integer;
begin
q:=length(edit1.text);
if (q>4)then
begin
  key:=#0;
end;
begin
  if not (key in ['0'..'9',#8,#44,'-']) then
  key:=#0;
  if (key in ['-']) then
begin
  if pos('-', edit1.text) <> 0 then key:=#0;
end;
  if (key in [#44]) then
begin
  if pos(#44, edit1.text) <> 0 then key:=#0;
end;
begin
  if edit1.Text = '0' then
  if Key = '0' then
  edit1.Text:= '';
  end;
end;
end;

procedure TForm5.RadioButton1Click(Sender: TObject);
begin
a:=StrToInt(Edit1.Text);
ShowMessage('Введенное вами число '+IntToStr(a));
end;

procedure TForm5.RadioButton2Click(Sender: TObject);
var i,ost,des,n,l:integer;
s,s1,sbox:string;
begin
des:=StrToInt(Edit1.Text);
 n:=0;
 i:=0;
 s:='';
 repeat
  inc(n);
  inc(i);
  ost:=des mod 16;
  des:=des div 16;
  if ost>=10 then
   begin
    if ost=10 then s:=s+'A';
    if ost=11 then s:=s+'B';
    if ost=12 then s:=s+'C';
    if ost=13 then s:=s+'D';
    if ost=14 then s:=s+'E';
    if ost=15 then s:=s+'F';
   end
  else
   begin
    s:=s+IntToStr(ost);
   end;
 until des=0;
n:=1;
l:=length(s);
for i:=1 to (l div 2) do
 begin
 sbox:=s[n];
 s[n]:=s[l+1-n];
 s[l+1-n]:=sbox[1];
 inc(n);
 end;
Label2.caption:='Шестнадцатиричное число:'+s;
end;

end.

[Alegun]

Сообщение от gif13

Осталось только сделать заполнение едита _

Код рабочий, заполняет едит без ошибок, что не так?