关于Tedit的问题(50分)

怎样让把一个文本文件在Tedit控件一行一行上下滚动的输出，并且使屏幕不抖动？

放在timer里面，每次读出一行然后显示？

放个updown控件控制

请写源码

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
Edit1: TEdit;
procedure Timer1Timer(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
f:textfile;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
var temp:string;
begin
if not eof(f) then
begin
readln(f,temp);
edit1.text:=temp;
end
else
timer1.Enabled:=false;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
assignfile(f,'c:/aa.txt');
reset(f);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
closefile(f);
end;

end.

把TMEMO画的窄些！ ：）

是上下滚动的输出，要有滚动的感觉，不是感觉在换行，要不然让我怎么样给你们分数？请写源码。

那把一个richedit缩小，只要一行，然后在timer里面ScrollBy(0, -1);就可以了

多人接受答案了。