[s0Creator]

Код:

procedure TForm1.btLoadClick(Sender: TObject);
var
  MyList: TStringList; // список строк
begin
  MyList := TStringList.Create;
  try
    MyList.LoadFromFile('MyFileName');
  finally
    MyList.Free;
  end;
  Memo1.Lines.LoadFromFile('MyFileName'); // Memo1.Lines - тоже список строк
end;