Create e-mail letter

Use ShellExecute function, like in this example, to create e-mail letter in default mail program.

uses shellapi;
...
procedure TForm1.Button1Click(Sender: TObject);
var
  BodyStr, LineStr: string;
  i: Integer;
begin
  //create body
  BodyStr:='';
  for i:=0 to Memo1.Lines.Count-1 do
  begin
    LineStr:=Memo1.Lines[i];
    while Pos(' ', LineStr)>0 do
      LineStr:=Copy(LineStr,
                    1, 
                    Pos(' ', LineStr)-1)+'%20'+
                      Copy(LineStr, 
                        Pos(' ', LineStr)+1, 
                        Length(LineStr)-Pos(' ', LineStr));
    BodyStr:=BodyStr+LineStr+'%0D%0A';
  end;

ShellExecute(
  Handle,
  'Open',
  PChar('mailto:'+Edit1.Text+
    '?subject='+Edit2.Text+
    '&Body='+BodyStr+
    '&CC='+Edit3.Text),
  nil,
  nil,
  SW_RESTORE);
end;