StringGrid neue berechnete Spalte

[Hansi]

Schönen Sonntag!

Mit folgendem Code wird ein StringGrid mit Daten gefüllt. Sieht dann ungefähr dann so aus

Datum Wert1 Wert2 Mittelwert
20.11.2004 100 50 ...

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var x,y : Integer;
begin
  if not Query1.IsEmpty then begin
    stringgrid1.ColCount := Query1.FieldCount;
    stringgrid1.RowCount := Query1.RecordCount + 1;
    stringgrid1.FixedCols := 0;
    stringgrid1.FixedRows := 1;
    For x := 0 To Query1.FieldCount-1 Do stringgrid1.Cells[x,0] := Query1.Fields[x].FieldName;
    y := 0;
    While Not Query1.Eof Do Begin
      For x := 0 To Query1.FieldCount-1 Do stringgrid1.Cells[x, y + 1] := Query1.Fields[x].AsString;
      Query1.Next;
      Inc(y);
    End;
  End;
end;

Nun meine Frage: Wie kann ich den Mittelwert(aus Wert1 und Wert2) in die StringGrid ausgeben. (Mittelwert gibt es bis dahin nicht!)