TMimePart.ExtractPart
TMimePart

function ExtractPart(Value: TStringList; BeginLine: Integer): Integer;

Unit
MIMEpart

Description
Extract part to this component from message in value from line no. BeginLine. End line of part is returned as result.