200+ Texte in ein memo laden

[Spectre]

könnt ihr hier bitte nochmal einen blick draufwerfen? hab nur nen button und ein memo im programm.
ich habe die stringlist deklariert, create ist auch drin, aber es passiert auf knopfdruck....einfach mal gar nichts. die fehlermeldung zumindest ist weg..was mache ich falsch?
land.txt mitsamt @@deutschland und text existiert natürlich.

Code:

var
  Form1: TForm1;
   MyCountryDescriptions : TStringList;


implementation

{$R *.dfm}

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FreeAndNil(MyCountryDescriptions);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
MyCountryDescriptions := TStringList.Create;
end;

Procedure CopyCountryDescription(Const Country : String; Description : TStrings);
Var
  i : Integer;

Begin

  Description.Clear;
  i:= MyCountryDescriptions.IndexOf('@@'+Country);
  if i=-1 then exit; // Keine Beschreibung gefunden
  inc(i);
  Description.BeginUpdate;
  Try
    while (i<MyCountryDescriptions.Count) do
      if Copy(MyCountryDescriptions[i],1,2) <> '@@' then
        break
      else begin
        Description.Add(MyCountryDescriptions[i]);
        inc(i);
      end
  finally
    Description.EndUpdate;
  end
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
MyCountryDescriptions.LoadFromFile('C:\Games\land.TXT');    //der pfad ist hier richtig plaziert?
CopyCountryDescription('deutschland',Memo1.Lines);
end;

end.

danke!