delphi 对Tmemo指定的行写入

mmoMonitor:Tmemo;

mmoMonitor.Lines.ValueFromIndex[0]:=aInfo ;

 procedure TMainForm.LogInfo(aInfo: string; IsShow: Boolean);
 begin
   ctsLog.Enter;
   try
     if memServerLog.Lines.Count >  then memServerLog.Clear;

     if not IsShow then
     begin
       if Pos('出错',aInfo)> then
       begin
         if Pos('竞篮赛程',aInfo)> then
           shp1.Brush.Color:=clFuchsia
         else if Pos('竞篮赛果',aInfo)> then
           shp2.Brush.Color:=clFuchsia
         else if Pos('竞足赛程',aInfo)> then
           shp3.Brush.Color:=clFuchsia
         else if Pos('竞足赛果',aInfo)> then
           shp4.Brush.Color:=clFuchsia
         else if Pos('北单赛程',aInfo)> then
           shp5.Brush.Color:=clFuchsia
         else if Pos('北单赛果',aInfo)> then
           shp6.Brush.Color:=clFuchsia
         else if Pos('北单胜负赛程',aInfo)> then
           shp7.Brush.Color:=clFuchsia
         else if Pos('北单胜负赛果',aInfo)> then
           shp8.Brush.Color:=clFuchsia;
         tmrMonitor.Enabled:=True;

       end
       else
       begin
         insert(FormatDateTime('dd-HH:mm', Now),aInfo,);
         case StrToInt(trim(Copy(aInfo,,))) of
           : mmoMonitor.Lines.ValueFromIndex[]:=aInfo ;
           : mmoMonitor.Lines.ValueFromIndex[]:=aInfo;
           : mmoMonitor.Lines.ValueFromIndex[]:=aInfo;
           : mmoMonitor.Lines.ValueFromIndex[]:=aInfo;
           : mmoMonitor.Lines.ValueFromIndex[]:=aInfo;

           : mmoMonitor.Lines.ValueFromIndex[]:=aInfo;
           : mmoMonitor.Lines.ValueFromIndex[]:=aInfo;
           : mmoMonitor.Lines.ValueFromIndex[]:=aInfo;
           : mmoMonitor.Lines.ValueFromIndex[]:=aInfo;
           : mmoMonitor.Lines.ValueFromIndex[]:=aInfo;
           : mmoMonitor.Lines.ValueFromIndex[]:=aInfo;
           : mmoMonitor.Lines.ValueFromIndex[]:=aInfo;

           : mmoMonitor.Lines.ValueFromIndex[]:=aInfo;
           : mmoMonitor.Lines.ValueFromIndex[]:=aInfo;
           : mmoMonitor.Lines.ValueFromIndex[]:=aInfo;
         end;
       end;
       SaveFile2(aInfo,'抓取监测');

     end
     else
     begin
       aInfo := FormatDateTime('yyyy-mm-dd HH:mm:ss', Now) + '-----' + aInfo;
       memServerLog.Lines.Append(aInfo);
       WriteLog(aInfo);
     end;
   finally
     ctsLog.Leave;
   end;
 end;

监控中测试例子