procedure TForm1.FormClick(Sender: TObject);
var
i, j, k : Integer;
begin
j:=1; k:=1;
Canvas.Brush.Style:=bsClear;
Canvas.Brush.Color:=clSilver;
for i:=1 to 15 do
begin
Form1.Font.Color:= clWhite; //<- 컬러를 변경하는 부분.
Canvas.TextOut(k, 0, IntToStr(j));
inc(j, 1);
inc(k, 15);
end;
end;
Font.Color 에 컬러 값을 넣어주면 됩니다.
Ex. Form1.Font.Color := clWhite;
이런식으로..