Envio email a través de thunderbird

[pjmedina]

Buenos dias a tod@s.
Lo primero de todo desearos felices fiestas.

A ver si puede alguien ayudarme, os comento lo que me pasa.

Estoy intentado mandar email con Thunderbird desde una aplicación hecha con delphi 7.
Si en windows xp, pulso inicio, ejecutar, y pego:

thunderbird -compose to='destino@dominio.com',cc='copia@dominio.com',subject="Pruebas Thunderbird",body="Mensaje de prueba Thunderbird", attachment='C:\imagen.jpg'

Funciona perfectamente, me abre la pantalla para enviar el mail.
Ahora bien,
he hecho una funcion que me genera esa linea de comando, pero falla al ejecutarla.

Código Delphi [-]
procedure TForm1.Enviar;
var
directori:string;
cadena:string;
cad:PAnsiChar;
begin
  directori:='C:';
  cadena:='thunderbird -compose to=';
  cadena:=cadena+chr(39)+ecuenta.text+chr(39);
  if Ecopia.Text<>'' then
    cadena:=cadena+',cc='+chr(39)+ecopia.text+chr(39);
  cadena:=cadena+',subject="'+editasunto.text+'"';
  if Memo1.Text<>'' then
    cadena:=cadena+',body="'+Memo1.Text+'"';
  if editfichero.Text<>''then
    cadena:=cadena+',attachment='+chr(39)+directori+'\'+editfichero.text;
  if(ckAdjunto2.Checked)then
  begin
    cadena:=cadena+','+directori+'\'+Fichero2.Text+chr(39);
  end
  else if editfichero.Text<>'' then
    cadena:=cadena+chr(39);
  cad:=PChar(cadena);
  if ShellExecute(Handle, 'open', cad, nil, nil, SW_SHOWNORMAL)<= 32 Then
    MessageDlg('Error al enviar',mtError,[mbok],0);
end;

Siempre da error al enviar. La linea se genera bien, porque he probado a escribirla en un memo antes de ejecutarla, y pegarla manualmente en inicio, ejecutar, y asi si que funciona.

Otra prueba que he hecho es entrar en la consola msdos, Inicio->ejecutar->escribir cmd y pulsar enter. Una vez alli escribir manualmente la instruccion, pero también falla, dice:

"Thunderbird" no se reconoce como un comando interno o externo, programa o archivo por lotes ejecutable.

Espero podais ayudarme, esto me trae de cabeza.

Saludos y gracias por todo.