delphi 对Tmemo指定的行写入

mmoMonitor:Tmemo;
mmoMonitor.Lines.ValueFromIndex[0]:=aInfo ;
 1 procedure TMainForm.LogInfo(aInfo: string; IsShow: Boolean);
 2 begin
 3   ctsLog.Enter;
 4   try
 5     if memServerLog.Lines.Count > 100 then memServerLog.Clear;
 6 
 7     if not IsShow then
 8     begin
 9       if Pos('出错',aInfo)>0 then
10       begin
11         if Pos('竞篮赛程',aInfo)>0 then
12           shp1.Brush.Color:=clFuchsia
13         else if Pos('竞篮赛果',aInfo)>0 then
14           shp2.Brush.Color:=clFuchsia
15         else if Pos('竞足赛程',aInfo)>0 then
16           shp3.Brush.Color:=clFuchsia
17         else if Pos('竞足赛果',aInfo)>0 then
18           shp4.Brush.Color:=clFuchsia
19         else if Pos('北单赛程',aInfo)>0 then
20           shp5.Brush.Color:=clFuchsia
21         else if Pos('北单赛果',aInfo)>0 then
22           shp6.Brush.Color:=clFuchsia
23         else if Pos('北单胜负赛程',aInfo)>0 then
24           shp7.Brush.Color:=clFuchsia
25         else if Pos('北单胜负赛果',aInfo)>0 then
26           shp8.Brush.Color:=clFuchsia;
27         tmrMonitor.Enabled:=True;
28 
29       end
30       else
31       begin
32         insert(FormatDateTime('dd-HH:mm', Now),aInfo,4);
33         case StrToInt(trim(Copy(aInfo,1,2))) of
34           0: mmoMonitor.Lines.ValueFromIndex[0]:=aInfo ;
35           1: mmoMonitor.Lines.ValueFromIndex[1]:=aInfo;
36           2: mmoMonitor.Lines.ValueFromIndex[2]:=aInfo;
37           3: mmoMonitor.Lines.ValueFromIndex[3]:=aInfo;
38           4: mmoMonitor.Lines.ValueFromIndex[4]:=aInfo;
39           
40           5: mmoMonitor.Lines.ValueFromIndex[5]:=aInfo;
41           6: mmoMonitor.Lines.ValueFromIndex[6]:=aInfo;
42           30: mmoMonitor.Lines.ValueFromIndex[7]:=aInfo;
43           31: mmoMonitor.Lines.ValueFromIndex[8]:=aInfo;
44           32: mmoMonitor.Lines.ValueFromIndex[9]:=aInfo;
45           33: mmoMonitor.Lines.ValueFromIndex[10]:=aInfo;
46           34: mmoMonitor.Lines.ValueFromIndex[11]:=aInfo;
47 
48           12: mmoMonitor.Lines.ValueFromIndex[12]:=aInfo;
49           13: mmoMonitor.Lines.ValueFromIndex[13]:=aInfo;
50           14: mmoMonitor.Lines.ValueFromIndex[14]:=aInfo;
51         end;
52       end;
53       SaveFile2(aInfo,'抓取监测');
54 
55     end
56     else
57     begin
58       aInfo := FormatDateTime('yyyy-mm-dd HH:mm:ss', Now) + '-----' + aInfo;
59       memServerLog.Lines.Append(aInfo);
60       WriteLog(aInfo);
61     end;
62   finally
63     ctsLog.Leave;
64   end;
65 end;
监控中测试例子