Plot data on a graph receiving from UART

program test1;

// rev 29 nov 2013
var i: integer;
var j: integer;
var k: integer;

begin
ShowMessage('Test Serial Chart using COM1'+chr(10)+chr(13)+ ' Send from IC UART1 19200,N,8,1 '+chr(10)+chr(13));
Delay(1400);
j:=0;
i:=0;
while (j<100) do
 begin
  while (i<10) do
   begin  
   //  str:= chr(i+48); 
    ComSendChr(i+48);
        ComSendChr(44);  // comma
      //  ComSendChr(59); // semi colon
        k:=j div 10 ;
        ComSendChr(k+48);
        k:=j mod 10;
         ComSendChr(k+48);
          ComSendChr(13);
     i:= i+1;
     if i>9 then i:=0;
    j:=j+1;
    if j>100 then j:=0;
    Delay(150);
   end;
  end;
end;
end.

#29-11-2013

[_setup_]
port=COM2  
baudrate=19200

#in pixels
width=1000
height=400
background_color =white

display_sep =;
display_sep =%3B
display_sep =59

grid_h_origin = 399
grid_h_step = 10
grid_h_color = #AFA
grid_h_origin_color = black

grid_v_origin = 0
grid_v_step = 10
grid_v_color = #AFA
grid_v_origin_color =black

[_default_]
min=-1
max=100


[section1]
param1 = value
param2 = value

[Field1]
min=0
max=100
color=#F00

[Field2]
color=blue
min=0
max=100