Memo1.Clear; for i:=1 to 3 do begin Memo1.Lines.Add(Format(' | %d | %d',[Results[i,1],Results2[i,1]])); Results[i,1]:=0; Results2[i,1]:=0; end;