delphi怎样打开一个文本文件

1、edit控件没有垂直滚动条，改用memo控件，设置sScrollBars=ssVertical
2、
procedure TForm1.Button1Click(Sender: TObject);
var
  f: TextFile;
  s,sFileName: string;
begin
    sFileName :='c:\1.sql';
    AssignFile(f, sFilename);
    Reset(f);

    while not Eof(f) do
    begin
      Readln(f, s);
      Memo1.Lines.Add(s) ;
    end;

    CloseFile(f);
end;