Запись содержимого TMemo в переменную

s := Memo1.Lines.Text;

var
  lPdf   : TPdfDocument;
begin
  lPdf := TPdfDocument.Create;//создали документ
  try
    lPdf.Info.Author        := 'Tester';//задали автора
    lPdf.Info.CreationDate  := Now;//задали дату создания документа
    lPdf.DefaultPaperSize   := psA4;//указали формат страниц (А4)
    lPDF.AddPage;//добавили страницу в документ
    lPDF.Canvas.SetFont('Helvetica',10.0,[]);//указали параметры шрифта
    {записываем текст в документ}
    lPdf.Canvas.BeginText;
    try
      lPdf.Canvas.TextOut(0, 700,  'Это текст в PDF-документе...');
      lPdf.Canvas.TextOut(0, 686,  'Это текст на другой строке в PDF-документе...');
    finally
      lPdf.Canvas.EndText;
    end;
    //сохраняем полученный файл
    lPdf.SaveToFile('c:\temp\test.pdf');
  finally
    lPdf.Free;
  end;
end;

 lPdf.Canvas.TextOut(0, 700,  'Это текст в PDF-документе...');
 lPdf.Canvas.TextOut(0, 686,  'Это текст на другой строке в PDF-документе...');

var
  i, h: Integer;
begin
  h := Canvas.TextHeight(Memo1.Lines[0]);
  for i := 0 to Memo1.Lines.Count - 1 do
    Canvas.TextOut(50, 50 + i * h,  Memo1.Lines[i]);

var
  lPdf   : TPdfDocument;
begin
  lPdf := TPdfDocument.Create;//создали документ
  try
    lPdf.Info.Author        := 'Tester';//задали автора
    lPdf.Info.CreationDate  := Now;//задали дату создания документа
    lPdf.DefaultPaperSize   := psA4;//указали формат страниц (А4)
    lPDF.AddPage;//добавили страницу в документ
    lPDF.Canvas.SetFont('arial',48,[]);//указали параметры шрифта
    {записываем текст в документ}
    lPdf.Canvas.BeginText;
    try
      lPdf.Canvas.TextOut(0, 700,  'Это текст в PDF-документе...');
      lPdf.Canvas.TextOut(0, 686,  'Это текст на другой строке в PDF-документе...');
    finally
      lPdf.Canvas.EndText;
    end;
    //сохраняем полученный файл
    lPdf.SaveToFile('c:\temp\test.pdf');
  finally
    lPdf.Free;
  end;
end;

var
  lPdf   : TPdfDocument;
   i, h: Integer;
begin
  lPdf := TPdfDocument.Create;//создали документ
  try
    lPdf.Info.Author        := 'Tester';//задали автора
    lPdf.Info.CreationDate  := Now;//задали дату создания документа
    lPdf.DefaultPaperSize   := psA4;//указали формат страниц (А4)
    lPDF.AddPage;//добавили страницу в документ
    lPDF.Canvas.SetFont('arial',48,[]);//указали параметры шрифта
    {записываем текст в документ}
    lPdf.Canvas.BeginText;
    try
      h := Canvas.TextHeight(Memo1.Lines[0]);
      for i := 0 to Memo1.Lines.Count - 1 do
      Canvas.TextOut(50, 50 - i * h,  Memo1.Lines[i]);
    finally
      lPdf.Canvas.EndText;
    end;
    //сохраняем полученный файл
    lPdf.SaveToFile('c:\temp\test.pdf');
  finally
    lPdf.Free;
  end;
end;

      h := lPdf.Canvas.TextHeight(Memo1.Lines[0]);
      for i := 0 to Memo1.Lines.Count - 1 do
        lPdf.Canvas.TextOut(50, 50 - i * h,  Memo1.Lines[i]);

lpdf.Canvas.TextHeight(Memo1.Lines[0]);

procedure TForm1.Button1Click(Sender: TObject);
var
  lPdf: TPdfDocument;
  i: Integer;
begin
  lPdf := TPdfDocument.Create;
  with lPdf, Canvas do
  try
    Info.Author := 'Tester';
    Info.CreationDate := Now;
    DefaultPaperSize := psA4;
    AddPage;
    SetFont('Helvetica', 36.0, []);
    SetLeading(Page.FontSize);
 
    BeginText;
    try
      MoveTextPoint(100, Page.PageHeight);
      for i := 0 to Memo1.Lines.Count - 1 do
      begin
        ShowText(Memo1.Lines[i], True);
//        MoveToNextLine;
      end;
    finally
      EndText;
    end;
 
    SaveToFile('D:\test.pdf');
   finally
     Free;
   end;
end;