[roman]

Así por ejemplo:

Código Delphi [-]
var
  Archivo: TStringList;

begin
  Archivo := TStringList.Create;
  try
    Archivo.LoadFromFile('archivo.txt');
    Label1.Caption := Archivo.Text;
  finally
    Archivo.Free;
  end;
end;

// Saludos