Alegun спасибо за ответ мне тут подсказали что вот так можно сделать^
Код:
q:=TStringList.Create;w:=TStringList.Create;e:=TStringList.Create;
with Memo.Lines do
for i:=0 to Count-1 do begin
q.DelimitedText:=Strings[i];
if q.count>5 then w.values[q[0]]:=IntToStr(StrToIntDef(w.values[q[0]],0)+q[4]);
if q.count>6 then e.values[q[0]]:=IntToStr(StrToIntDef(e.values[q[0]],0)+q[5]);
end;
Но что то не выходит можешь посмотреть где ошибка?