nyobak cok

begin
email := CkEmail_Create();

// Load an email from a .eml

success := CkEmail_LoadEml(email,'embeddedEmail.eml');
if (success <> True) then
begin
Memo1.Lines.Add(CkEmail__lastErrorText(email));
Exit;
end;

// Display how many attached emails are embedded within
// this one:

numAttached := CkEmail_getNumAttachedMessages(email);
Memo1.Lines.Add('numAttached = ' + IntToStr(numAttached));

// Get the 1st attached message.

email2 := CkEmail_GetAttachedMessage(email,0);
if (not (email2 = nil )) then
begin

// Display the subject, From, and a header field...
Memo1.Lines.Add(CkEmail__subject(email2));
Memo1.Lines.Add(CkEmail__from(email2));
Memo1.Lines.Add(CkEmail__getHeaderField(email2,'X-SOMETHING'));
end;


CkEmail_Dispose(email);

end;
<a href="https://support.google.com/blogger/bin/answer.py?answer=42448" target="_blank">