Probleme mit Zeigern

[endeffects]

ich hab nun nochmal folgendes probiert:

Delphi-Quellcode:

var
  Header: OleVariant;
begin
  Header:= 'TestValue: empty';
  PDispParams(Params)^.rgvarg[1].pvarVal^:= Header;

das läuft dann zwar durch, aber im packet taucht davon nichts auf