Wie kann ich einen Record "echt" kopieren...?

[stoxx]

Code:

vfNeueEmail := TfEmail.Create(Application); 
vfNeueEmail.vEmail^ := vemailliste[listviewEmails.itemindex]^;