var

  Size: Byte;

  TmpRect: TRect;

  Flags: Word;

  S: string;

begin

  TmpRect.Left := 60; TmpRect.Top := 60; tmpRect.Right := 160; tmpRect.Bottom := 260;

  Canvas.FillRect(TmpRect);

  Canvas.Brush.Color :=clRed;

  Canvas.Font.Color :=clGreen;

  Flags := DT_NOCLIP or DT_VCENTER or DT_WORDBREAK; //?

  S := 'DDDDDDDDDDFFFFFFFFFFFFFFFFFFFFFFFFFF';

  DrawText(Canvas.Handle, Pchar(S), Length(S), TmpRect, Flags);

end;