memo.lines,该怎么解决

memo.lines
procedure TPirate.tmr1Timer(Sender: TObject);
var
  k: integer;
  os: string;
  Windowsxp: integer;
begin
  Windowsxp := 0;;
  for k := 0 to Serveronlinelist.Items.Count - 1 do // 这里用到 memo.lines 而不是现在这个  
  begin
  try
  os := Serveronlinelist.Items.Item[k].SubItems[1];
  if Pos('XP',os) <> 0 then
  inc(Windowsxp);
  except
  end;
  end;
  lblwin1.Caption := 'Windows XP　 :' + inttostr(Windowsxp);
end;


====================================================================

类似这样的 只不过我用到的是 如果 memo.lines 有一行数据。  

那么 Label.Caption := 'Windows XP　 :' + inttostr(Windowsxp);

谁能给个具体的代码

[解决办法]

Delphi(Pascal) code

for k := 0 to Serveronlinelist.Items.Count - 1 dobegin  if k=0 then     Label.Caption := 'Windows XP　 :' + inttostr(Windowsxp);...