TEXT파일을 읽어 들이는 루틴은 간단합니다...
아래에 예제를 올리겠습니다....참고 하시길...
var
  F: TextFile;
  S: string;
begin
  if OpenDialog1.Execute then          { Display Open dialog box }
  begin
    AssignFile(F, OpenDialog1.FileName);   { File selected in dialog box }
    Reset(F);
    while not Eof(F) do begin
      Readln(F, S);                          { Read the first line out of the file }
      Edit1.Text := S;                       { Put string in a TEdit control }
    end;
    CloseFile(F);
  end;
저도 테스트는 안해봤습니다...
참고 하시고...테스트 해보세요...

..............라인하르트