Как из файла взять текст и записать его в label

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  f: TextFile;
implementation
 
uses Unit2;
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
 
begin
if FileExists('test.txt') then
 Memo1.Lines.SaveToFile('test.txt')
 else
 begin
      AssignFile(f,'test.txt');
     Rewrite(f);
     CloseFile(f);
     Memo1.Lines.SaveToFile('test.txt');
 end;
 Form1.Hide;
 Form2.Show;
 Form2.Memo1.Lines.LoadFromFile('test.txt');
end;
 
end.

unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm2 = class(TForm)
    Memo1: TMemo;
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
 
implementation
 
uses Unit1;
 
{$R *.dfm}
 
procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
Form1.Show;
Form1.Memo1.Lines.LoadFromFile('test.txt');
end;
 
end.

procedure TForm1.Button1Click(Sender: TObject);
begin
   Memo1.Lines.SaveToFile('x.txt');
   Form1.Hide;
   Form2.Show; // по OnShow второй формы данные будут загружены в Label
end;
 
procedure TForm2.FormShow(Sender: TObject);
var lst : TStringList;
begin
   lst := TStringList.Create;
   try
      lst.LoadFromFile('x.txt');
      Label1.Caption := lst.text; // Опять очень сложно "для студента", наверняка
   finally
      FreeAndNil(lst);
   end;
end;