procedure TForm1.Print(Canvas:TCanvas);

var

xpos,ypos,i,j:integer;

oldMap:Integer;

begin

xpos:=30;

ypos:=-30;

with Canvas do begin

OldMap:= SetMapMode(Handle,MM_LOMETRIC);

Font.Size:=10;

Font.Color:= clBlack;

TextOut(pw div 2-TextWidth(title),ypos,title);

Table1.First;

for i:=0 to Table1.Recordcount-1 do begin

ypos:=ypos-20;

for j:=0 to Table1.FieldCount-1 do begin

TextOut(xpos,ypos,Table1.Fields[j].AsString);

xpos:= xpos+130;

end;

Next;

end;

SetMapMode(Handle,OldMap);

end;

end;



위처럼 작성한 후 Image 컴포넌트에 출력을 시켰더니 레코드가 한줄로만 나옵니다.

레코드가 바뀔 때 줄바꿈을 해줄려고 하는데 어떻게 고쳐야 할까요?