procedure TForm1.cmdProperLineBreaksClick(Sender: TObject);
var
  S : String;
begin
  S := 'mailto:SomeAddress' +   // <- SomeAddress 에 원하는 주소를 넣고
       '?Subject=Testing' +     // <- 제목
       '&cc=Goofy' +             // <- cc 알쥐?
       '&bcc=Shagme' ;           // <- bcc 도 알꼬얌 ^^;
ShellExecute(0, nil, PChar(S), nil, nil, SW_SHOWDEFAULT);
end;