Preamble Example for Delphi

Procedure TForm1.Preamble();
begin
    LEADDicomDS1.GetDSPreamble();
    ShowMessage(LEADDicomDS1.Preamble);
end;

Procedure TForm1.Preamble2();
begin
    LEADDicomDS1.Preamble:= Edit1.Text;
    LEADDicomDS1.SetDSPreamble();
end;