在我前面发帖子中hagar，已经帮我解决了读取edit.text中字符的问题。可是我运行了一下，发现不能自动读取，得每次按一下button才能读取出来，并且第二个循环读取时，图片上会出现两个点。需要怎样修改才能自动读取每隔一分钟读取一个字符呢？ 

idx: integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Canvas.Font.Color := clRed;
  Image1.Canvas.Font.Size := 42;
  if Edit1.Text <> '' then
  begin
    image1.Canvas.TextOut(0, 0, edit1.Text[idx]) ;
    image2.picture.Bitmap.Assign(image1.picture.Bitmap);
    Inc(idx);
   if idx > Length(edit1.Text) then
    idx := 1;
  end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  idx := 1;
  Timer1.Interval := 60000;
  Timer1.Enabled := True;
end;
 

親愛的小丫妹妹... 您在您程式裡的 class="code"> Image1.Canvas.Font.Color := clRed; Image1.Canvas.Font.Size := 42; if Edit1.Text <> '' then begin image1.Canvas.TextOut(0, 0, edit1.Text[idx]) ; image2.picture.Bitmap.Assign(image1.picture.Bitmap); Inc(idx); if idx > Length(edit1.Text) then idx := 1; end; 貼進去就行了

小丫123 您好：

将button1的onClick事件的内容改为写Timer1Timer中,如下：
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Image1.Canvas.Font.Color := clRed;
  Image1.Canvas.Font.Size := 42;
  if Edit1.Text <> '' then
  begin
    image1.Canvas.TextOut(0, 0, edit1.Text[idx]) ;
    image2.picture.Bitmap.Assign(image1.picture.Bitmap);
    Inc(idx);
   if idx > Length(edit1.Text) then
    idx := 1;
  end;
end;
试试看
  
     ——行径窄处，留一步与人行——

        

还是不行啊！