Preamble Example for Delphi

var
   sDSP: String;
begin
   LEADDicom1.GetDSPreamble();
   sDSP := LEADDicom1.Preamble;
   ShowMessage('DS Preamble = '#13 + sDSP);

   LEADDicom1.Preamble := 'NEW_VALUE';
   LEADDicom1.SetDSPreamble();
   LEADDicom1.GetDSPreamble();
   sDSP := LEADDicom1.Preamble;
   ShowMessage('New DS Preamble = '#13 + sDSP);
end;