Etwas später ... aber ich habe die Lösung gefunden.
Mit folgenden Code bin ich zum Erfolg gekommen:
Delphi-Quellcode:
var
a: Integer;
Head: TIpHeaderCollection;
Info: TStringList;
begin
Msg := TIpMailMessage.CreateMessage;
Head:= TIpHeaderCollection.Create(nil);
Info:= TStringList.Create;
Info.Add('X-Test1: Mein Zeile 1');
Info.Add('X-Test2: Mein Zeile 1');
Msg.LoadFromFile('C:\msg\001.msg');
Head:=Msg.Headers;
Head.Add;
Head.LoadHeaders(Info,True);
Msg.EncodeMessage;
Msg.SaveToFile(''C:\msg\001.msg');
Head.Free;
Msg.Free;
Info.Free;
Das Ergebnis sind 2 neue Headerzeilen, wie in der Stringliste "Info" angegeben sind.