procedure TForm1.Button1Click(Sender: TObject);
begin
 timer1.Interval:=300;
 flag:=false;
end;    procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if flag then
  begin
   richedit1.Lines.Text:='這個字閃爍' ;
   flag:=false;
  end
 else
  begin
   richedit1.Lines.Text:='這個字';
   flag:=true;
  end;
end;

引言: 嗯...謝謝這位大大... 這樣的確可以做到~ 但多行的話，似乎超出>< face="Verdana, Arial, Helvetica"> Hi courage820您好: 多行?? 試試看..

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if flag then
  begin
   richedit1.Lines.Text:='這個字閃爍' #13 '第二行' #13 '第三行' ;
   flag:=false;
  end
 else
  begin
   richedit1.Lines.Text:='這個字' #13 '第二' #13 '第三';
   flag:=true;
  end;
end;

~悠遊法國號~