[cezer]

Всем добрый вечер! Ну или ночь) Имеется код:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 q,w,e:TStrings;
 i: integer;
begin
 q:= TStringList.Create; 
 w:= TStringList.Create;
 e:= TStringList.Create;
with Memo1.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)+ StrToInt(q[4]));
   if q.count>6 then e.values[q[0]]:= IntToStr(StrToIntDef(e.values[q[0]],0)+ StrToInt(q[5]));
  end;
 Label1.Caption:=w.Text;
 Label2.Caption:=e.Text;
 q.Free;
 w.Free;
 e.Free;
end;

Как правильно вывести в DBgrid значения w и e?
Например во второй столбец W в третий E

После обработки текст выглядит так

Код:

User1=цифры( Label1.Caption:=w.Text;)
User1=цифры( Label2.Caption:=e.Text;)

Надо перевести в DBgrid но чтоб было так:

Код:

User1 | цифры( Label1.Caption:=w.Text;) | цифры( Label2.Caption:=e.Text;)

Помогите в решении этой не лёгкой для меня задачи.