1:

ShellExecute(Handle, 'open', 'mailto:Cooro@hotmail.de', nil, nil, SW_SHOWNORMAL);					

1:
2:

uses
..., ShellAPI;					

1:
2:

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ShellAPI;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

unit WinForm1;

interface

uses
  System.Drawing, System.Collections, System.ComponentModel,
  System.Windows.Forms, System.Data, System.Resources, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ShellAPI;


type
  TWinForm1 = class(System.Windows.Forms.Form)
  
  [assembly: RuntimeRequiredAttribute(TypeOf(TWinForm1))]

implementation
 var kosten: Integer;
 var bestellung : string;
 var kostenmonat: integer;
 var server: string;
 var homepage: string;
 var bearbeiten: string;
 var bearbeiten2: string;
 var homepage2: string;
 var server2: string;

{$AUTOBOX ON}					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TWinForm1.Dispose(Disposing: Boolean);
begin
  if Disposing then
  begin
    if Components <> nil then
      Components.Dispose();
  end;
  inherited Dispose(Disposing);
end;

constructor TWinForm1.Create;
begin
  inherited Create;
  //
  // Erforderlich für die Unterstützung des Windows Forms-Designers
  //
  InitializeComponent;
  //
  // TODO: Fügen Sie nach dem Aufruf von InitializeComponent Konstruktorcode hinzu.
  //
end;					

1:
2:
3:
4:
5:
6:

procedure TWinForm1.Button2_Click(sender: System.Object; e: System.EventArgs);
begin

  ShellExecute(Handle, 'open', 'mailto:bestellung@kedo-productions.de', nil, nil, SW_SHOWNORMAL);

end;					

1:
2:
3:
4:

uses ShellApi;
...
ShellExecute(Application.Handle, 'open',
PChar('mailto:name@domain.de?subject=Betreff&body=irgendein Text'), nil, nil, sw_ShowNormal);					

1:
2:
3:
4:
5:
6:

procedure TWinForm1.Button2_Click(sender: System.Object; e: System.EventArgs);
begin

  ShellExecute(Application.Handle, 'open', ('mailto:bestellung@kedo-productions.de?subject=Bestellung&body=Bla'), nil, nil, sw_ShowNormal);

end;					

1:

mailto:bestellung@kedo-productions.de?subject=Bestellung&body='+edit1.text					

1:
2:
3:

  ShellExecute(Application.Handle, 'open',
  ('mailto:bestellung@kedo-productions.de?subject=Bestellung&body='+Richtextbox2.text'),
  nil, nil, sw_ShowNormal);					

1:
2:
3:

  ShellExecute(Application.Handle, 'open',
  ('mailto:bestellung@kedo-productions.de?subject=Bestellung&body='+Richtextbox2.text),
  nil, nil, sw_ShowNormal);