比如0根1，在显示出0后然后快速的显示出1，反复的显示0跟1，请各位老师不吝赐教，小女子不胜感激。

谢谢。

procedure show01;
var flag:boolean;
  begin
   flag:=true;
   i:=1;
   if flag then
     begin
        edit1.text:='1';
         sleep(500);
       self.flag:=false;
      end
  else
    begin
     edit1.text:='0';
         sleep(500);
     self.flag:=true;
    end;
  self.show01;
end;
你时式行吗?

用一个timer控件不就可以了呀？

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

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if edit1.Text='0' then
edit1.Text:='1'
else if edit1.text='1' then
edit1.Text:='0'
end;

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

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if edit1.Text='0' then
edit1.Text:='1'
else if edit1.text='1' then
edit1.Text:='0'
end;