procedure ApiExec(Action: String; Flag: Integer);
begin
ShellExecute(Application.Handle, pchar('open'), pchar(Action), pchar(''), pchar(ExtractFilePath(paramstr(0))), Flag)
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ApiExec('mailto:webmaster@delphibbs.com', SW_SHOWDEFAULT);
end;