[ryderx34]

Код:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked then
    begin
      Memo1.Lines.LoadFromFile('C:\Весь текст.txt');
      //загружаем файл который содержит весь текст
    end
  else
    begin
      Memo1.Lines.LoadFromFile('C:\Одна строка.txt');
      //загружаем файл который содержит одну строку
    end;
end;