EditChange

[Claster]

Всем доброго времени суток....

procedure TForm1.Edit1Change(Sender: TObject);
var i:integer;
str:string;
  begin
    str:='1234';
      for i := 1 to Length(Edit1.Text) do begin
        itop := 30;
          case Pos(Edit1.Text[i],str) of

         1:if bt.Visible = false then
              bt.Visible := true;
         2:if ch.Visible = false then
              ch.Visible := true;
         3:if lb.Visible = false then
              lb.Visible := true;
         4:if sb.Visible = false then
              sb.Visible := true;
          end;

         if bt.Visible then
         bt.Top := itop;
         itop := itop + 25;

         if ch.Visible then
         ch.Top := itop;
         itop := itop + 25;

         if lb.Visible then
         lb.Top := itop;
         itop := itop + 25;

         if sb.Visible then
         sb.Top := itop;
         itop := itop + 25;
     end;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  bt:=TButton.Create(Self);
  bt.Parent := Form1;
  bt.Name := 'Edit';

  lb:=TLabel.Create(Self);
  lb.Parent := Form1;
  lb.Name := 'Label';

  ch:=TCheckBox.Create(Self);
  ch.Parent := Form1;
  ch.Name := 'ChecBox';

  sb:=TSpeedButton.Create(Self);
  sb.Parent := Form1;
  sb.Name := 'SpeedButton';

  bt.Visible := false;
  lb.Visible := false;
  ch.Visible := false;
  sb.Visible := false;
end;

как сделать что бы при удалении символов из Edit и удалялись объекты с формы, к примеру (при вводе 12, создается объект кнопка и чекбокс) нужно к примеру при удалении 2 из Edit, должен и удалится этот обьект с формы

[evg_m]

проверять условия для создания

if ( pos('1', edit1.text)>0 ) and ( Mycheckbox1=nil ) then mycheckbox1:=Tcheckbox1.create(self);

и условия для удаления

if ( pos('2', edit1.text)=0 ) and ( Myedit2<>nil ) then begin MyEdit2.Free; Myedit2:=nil; end;