Kod: Tümünü seç
var x,y,m:integer;
begin
show;
x:=0;y:=0;s:=0;
canvas.Font.Name:='Tahoma';
repeat
x:= x + 72 ;
if x > form1.Width then begin Y:= Y + 15; S:=S+5;X:=S end;
Canvas.TextOut(x,y,'Borland Delphi');
until y>form1.Height;
veya aynı mantıkla label nasıl kullanırım (label1 nasıl coğaltılabilir?)