关于在MEMO或RICHEDIT将读入文件一个字一个字显示的问题

Question

记得以前坛子里有这样的帖子，但忘了在哪里了，找不到。
哪位大虾帮找找，
感激不尽！

Answer 1

var
  s : TStringList;
  i : integer;
begin
  s := TStringList.Create;
  s.LoadFromFile (...);
  memo1.Clear;
  for i := 1 to length (s.Text) do
  begin
    memo1.Text := memo1.Text + s.Text[i];
    Sleep (1000);
  end;
  s.Free;
end;

Answer 2

//我测试怎么不会闪？var
  vIndex: Integer;
  vText: WideString;procedure TForm1.Button1Click(Sender: TObject);
var
  vStringList: TStringList;
begin
  vStringList := TStringList.Create;
  try
    vStringList.LoadFromFile ('c:\temp\temp.txt');
    vText := vStringList.Text;
  finally
    vStringList.Free;
  end;
  vIndex := 1;
  Memo1.Clear;
  Memo1.SetFocus;
  Timer1.Enabled := True;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Memo1.SelStart := MaxInt;
  Memo1.SelText := vText[vIndex];
  Inc(vIndex);
  TTimer(Sender).Enabled := vIndex < Length(vText);
end;

Answer 3

当timer控件的interval属性越小，闪得就越厉害。
可不可以用多线程技术实现？？