Quebra de linha no relatório

[VictorGL]

Estou fazendo relatório com printers no delphi com o  código abaixo e preciso quebra a linha do campo obs, pq é muito grande. Desde já agradeço a ajuda.

var
  Linha:integer;
  Tamanho:integer;
  Coluna:integer;
  begin
    Printer.Orientation := poLandscape;
    Printer.BeginDoc;
    Printer.Canvas.Pen.Width := 5;
    Printer.Canvas.Font.Name := 'Tahoma';
    Printer.Canvas.Font.Size := 12;
    Linha := 20;
    Coluna:= 20;
    Tamanho := Printer.Canvas.TextWidth('a');
    ZQueryRelTratMedic.First;
        while not ZQueryRelTratMedic.Eof do
        begin
         if Linha = 20 then
           begin
            Coluna := 100;
             Linha := Linha - Printer.Canvas.Font.Height + 75;
            Printer.Canvas.TextOut(2000,Linha,'Histórico dos Pet´s');
            Linha := Linha - Printer.Canvas.Font.Height + 75 ;
            Printer.Canvas.TextOut(Coluna,Linha,'Pet');
            Coluna:= Coluna + (Tamanho * 20 );
            Printer.Canvas.TextOut(Coluna,Linha,'Tutor');
            Coluna:= Coluna + (Tamanho * 20);
            Printer.Canvas.TextOut(Coluna,Linha,'Tipo');
            Coluna:= Coluna + (Tamanho * 10);
            Printer.Canvas.TextOut(Coluna,Linha,'Data');
            Coluna:= Coluna + (Tamanho * 15);
            Printer.Canvas.TextOut(Coluna,Linha,'Prox. Dose');
            Coluna:= Coluna + (Tamanho * 15);
            Printer.Canvas.TextOut(Coluna,Linha,'Valor');
            Coluna:= Coluna + (Tamanho * 12);
            Printer.Canvas.TextOut(Coluna,Linha,'Obs');
            Coluna:= Coluna + (Tamanho * 40);
            Linha := Linha - Printer.Canvas.Font.Height + 75 ;

            End;
    Coluna := 100 ;
    Printer.Canvas.Font.Size := 8;
    Printer.Canvas.TextOut(Coluna,Linha, ZQueryRelTratMedic.FieldByName('Pet').AsString);
    Coluna:= Coluna + (Tamanho * 20 );
    Printer.Canvas.TextOut(Coluna,Linha, ZQueryRelTratMedic.FieldByName('Tutor').AsString);
    Coluna:= Coluna + (Tamanho * 20);
    Printer.Canvas.TextOut(Coluna,Linha, ZQueryRelTratMedic.FieldByName('Tipo').AsString);
    Coluna:= Coluna + (Tamanho * 10);
    Printer.Canvas.TextOut(Coluna,Linha, ZQueryRelTratMedic.FieldByName('DataIni').AsString);
    Coluna:= Coluna + (Tamanho * 15);
    Printer.Canvas.TextOut(Coluna,Linha, ZQueryRelTratMedic.FieldByName('ProxDose').AsString);
    Coluna:= Coluna + (Tamanho * 15);
    Printer.Canvas.TextOut(Coluna,Linha, ZQueryRelTratMedic.FieldByName('Valor').AsString);
    Coluna:= Coluna + (Tamanho * 12);
    Printer.Canvas.TextOut(Coluna,Linha, ZQueryRelTratMedic.FieldByName('Obs').AsString);
    Coluna:= Coluna + (Tamanho * 40);
    Linha := Linha - Printer.Canvas.Font.Height + 20 ;
    ZQueryRelTratMedic.Next;

        if ZQueryRelTratMedic.eof then
           Begin
            Printer.Canvas.Font.Size := 12;
            Linha := Linha - Printer.Canvas.Font.Height + 75 ;
            Printer.Canvas.TextOut(3500,Linha,'Total do Tratamento no período');
            Printer.Canvas.TextOut(5200,Linha, FormatFloat('#,##0.00',VarSoma));
            Coluna:= Coluna + (Tamanho * 12);
            Linha := Linha - Printer.Canvas.Font.Height + 75 ;
           End;

           if Linha > Printer.PageHeight-20 then
              Begin
               Printer.NewPage;
               Linha := 20;
              end;
         end;

  Printer.EndDoc;