Poner las lineas de un txt en un label

[mastermind]

Hola,

¿Como puedo poner las lineas de un archivo de texto (*.txt) en un Label?

Gracias

[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