如何1行1行取文件文件的内容

我是利用MEMO作为载体,有更好的方法吗？procedure TfrmMain.N4Click(Sender: TObject);
var
  i: Integer ;
  CATALOG_ID : integer;
begin  if OpenDialog1.Execute then
  begin
    Memo1.Lines.LoadFromFile ( OpenDialog1.FileName ) ;  //Memo1中保存文本文件内容
    CATALOG_ID := DBGrid1.DataSource.DataSet.FieldValues['ID'] ;
    for i:=0 to Memo1.Lines.Count-1 do
    begin
      if StrLen(PChar(Memo1.Lines[i])) >0 then        //空内容不能导入
        AddSMS(CATALOG_ID,Memo1.Lines[i], '...');    //取1行
    end;    RefreshCatalog(CATALOG_ID);  end;  //OpenDlgend;