Código Delphi [-]
var
MiFichero : TextFile;
valor :dword;
valor1 :dword;
valorsting : String;
begin
try

AssignFile (MiFichero,(C:\nombre.txt'));
Reset (MiFichero);
Read(MiFichero,valorsting);
valor:= StrToInt (valorsting);

Código Delphi [-]
AssignFile (MiFichero,(C:\nombre.txt'));
Reset (MiFichero);
While not Eof(MiFichero) do begin
  ReadLn(MiFichero,valorsting);
  ShowMessage(valorsting);
end;

Código Delphi [-]
var
MiFichero : TextFile;
valor :dword;
valor1 :dword;
valorsting : TStringList;
sAux: String;
begin
  valorsting: TStringList.Create;
  AssignFile (MiFichero,(C:\nombre.txt'));
  Reset (MiFichero);
  While not MiFichero.eof do begin
    Readln(MiFichero,sAux);
    valorsting.add(sAux);
  end;
  .....

end;

Código Delphi [-]
var
  txt : TextFile;
  line: string;
begin
  AssignFile(txt, 'C:\nombre.txt');
  Reset(txt);
  while not eof(txt) do
  begin
    Readln(txt,line);
    Memo1.Lines.Add(line); // hacer algo con las lineas
  end;
  CloseFile(txt);
end;

Código Delphi [-]
begin
  with TStringList.Create do
  try
    LoadFromFile('C:\nombre.txt');
  finally
    Memo1.Text := Text; // hacer algo con las lineas
    Free;
  end;
end;

Código Delphi [-]
var
 s  : string;
begin
  with TFileStream.Create('C:\nombre.txt',fmOpenRead) do
  try
    Seek(0,soFromBeginning);
    SetLength(s, Size);
    Read(Pointer(s)^, Size);
  finally
    Free;
    Memo1.Text := s; // hacer algo con las lineas
  end;
end;

Código Delphi [-]
var
  s : string;
begin
  with TMemoryStream.Create do
  try
    LoadFromFile('C:\nombre.txt');
    Seek(0, soFrombeginning);
    SetLength(s,Size);
    Read(Pointer(s)^, Size);
  finally
    Free;
    Memo1.Text := s;
  end;
end;

Código Delphi [-]
Function leerText (Const valor: Array [1..5] of String):string;
var
MiFichero : TextFile;
valorsting : String;

begin
AssignFile (MiFichero,(C:\nombre.txt'));
Reset (MiFichero);
Read(MiFichero,valorsting);// aqui leo es siempre la primera linea 
valor[1]:= StrToInt (valorsting); // quiero obtener el valor de la primera linea
valor[2]:= StrToInt (valorsting); // quiero obtener el valor de la segunda linea
valor[3]:= StrToInt (valorsting); // quiero obtener el valor de la trecera linea
valor[4]:= StrToInt (valorsting); // quiero obtener el valor de la cuarta  linea
valor[5]:= StrToInt (valorsting); // quiero obtener el valor de la quinta linea

Código Delphi [-]
var
  f: TextFile;
  lineas: array of string;
begin
  AssignFile(f, 'C:\nombre.txt');
  Reset(f);
  while not eof(f) do
  begin
    SetLength(lineas, Length(lineas)+1);
    Readln(f, lineas[High(lineas)]);
  end;
  CloseFile(f);
end;

Código Delphi [-]
library DLLFileProcess;

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;

var
   FileVector : Array of String;
   FileInput : String;

{$R *.res}

// Carga un Archivo Línea a Línea en el Arreglo FileVector
function ReadTextFile(FileName : PChar) : Boolean; Stdcall;
var
   F : TextFile;
   i : Integer;
   Buffer : String;

begin

   if FileName = EmptyStr then
   begin
      MessageDlg('El Nombre del Archivo No Puede Estar en Blanco', mtInformation, [mbOK], 0);
      Result := False;
      Exit;
   end;

   if not FileExists(FileName) then
   begin
      MessageDlg('El Archivo no Existe en el Path Indicado', mtInformation, [mbOK], 0);
      Result := False;
      Exit;
   end;

   FileInput := FileName;

   try
      FileMode := fmOpenRead;
      AssignFile(F, FileName);
      Reset(F);
      i := 1;
      while not Eof(F) do
      begin
         Readln(F, Buffer);
         SetLength(FileVector,i);
         FileVector[i-1] := Buffer;
         Inc(i);
      end;
      CloseFile(F);
      Result := True;
   except
      MessageDlg('Error de I/O', mtInformation, [mbOK], 0);
      Result := False;
   end;

end;

// Genera un Archivo de Salida con la Información del Arreglo FileVector
function WriteTextFile() : Boolean; Stdcall;
var
   FileOutput : String;
   F : TextFile;
   i : Integer;
   Buffer : String;

begin

   FileOutput := ExtractFilePath(FileInput) + 'FileOutPut.txt';

   if Length(FileVector) = 0 then
   begin
      MessageDlg('El Arreglo No Contiene Información', mtInformation, [mbOK], 0);
      Result := False;
      Exit;
   end;   

   try
      FileMode := fmOpenWrite;
      AssignFile(F, FileOutput);
      Rewrite(F);
      for i:= low(FileVector) to High(FileVector)  do
      begin
         Buffer := 'LN-' + IntToStr(i+1) + ' ' + FileVector[i];
         Writeln(F, Buffer);
      end;
      CloseFile(F);
      Result := True;
   except
      MessageDlg('Error de I/O', mtInformation, [mbOK], 0);
      Result := False;
   end;

end;

Exports
   ReadTextFile,
   WriteTextFile;
   
begin
end.

Código Delphi [-]
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  function ReadTextFile(FileName : PChar) : Boolean; Stdcall; External 'DLLFileProcess.dll';
  function WriteTextFile() : Boolean; Stdcall; External 'DLLFileProcess.dll';
  
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
   OpenDialog : TOpenDialog;

begin
   OpenDialog := TOpenDialog.Create(self);
   OpenDialog.InitialDir := 'C:\';
   OpenDialog.Options := [ofFileMustExist];
   OpenDialog.Filter := '*.txt';

   if OpenDialog.Execute then
   begin

      if ReadTextFile(PChar(OpenDialog.FileName)) then
         MessageDlg('Archivo Procesado Exitosamente', mtInformation, [mbOK], 0)
      else
         MessageDlg('Error en Procesamiento de Archivo', mtInformation, [mbOK], 0)

   end
   else
      MessageDlg('No Se Selecciono Ningún Archivo', mtInformation, [mbOK], 0);

   OpenDialog.Free;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin

   if WriteTextFile() then
      MessageDlg('Archivo Generado Exitosamente', mtInformation, [mbOK], 0)
   else
      MessageDlg('Error en Generación de Archivo', mtInformation, [mbOK], 0)

end;

end.

Código Delphi [-]
var
FileVector :  Array [0..6] of String;

procedure TForm1.Button1Click(Sender: TObject);
var
   F : TextFile;
   i : Integer;
   Buffer : String;
begin
try
AssignFile(F,'C:\nombre.txt');
Reset(F);
      i := 0;
      while not Eof(F) do
      begin
         Readln(F, Buffer);
         SetLength(FileVector[6],i);
         FileVector[i+1] := Buffer;
         Inc(i);
      end;
      except
end;
 label1.Caption := (FileVector[1]);
 label2.Caption := (FileVector[2]);
 label3.Caption := (FileVector[3]);
 label4.Caption := (FileVector[4]);
      end;

Código Delphi [-]
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TArrayStr = Array of String;

var
  Form1: TForm1;
  FileVector : TArrayStr;

implementation

{$R *.dfm}

// Lee un archivo de texto y lo devuelve como un arreglo.
function ReadTextFile(FileName : String) : TArrayStr;
var
   F : TextFile;
   i : Integer;
   Buffer : String;

begin

   try

      FileMode := fmOpenRead;
      AssignFile(F, FileName);
      Reset(F);

      i := 1;
      while not Eof(F) do
      begin
         Readln(F, Buffer);
         SetLength(Result,i);
         Result[i-1] := Buffer;
         Inc(i);
      end;

      CloseFile(F);

   except

      MessageDlg('Error de I/O', mtInformation, [mbOK], 0);

   end;

end;

// Modifica el caption de los TLabel en función de las entradas de un archivo de texto.
procedure TForm1.Button1Click(Sender: TObject);
var
   i : Integer;

begin

   FileVector := ReadTextFile('C:\TestFile.txt');
   for i := Low(FileVector) to High(FileVector) do
   begin
      // Solo se modifican los Caption de los Tlabel que esten definidos en el Form independientemente
      // de la cantidad de elementos de FileVector (Registros del Archivo de Texto)
      TLabel(FindComponent(Format('Label%d',[i+1]))).Caption := FileVector[i];
   end;

end;

end.