Por esse codigo nao anexa o arquivo?????

Boa pessoal, nao sei se alguem ja fez algum processo com esse mais eu estou tentando colocar um anexo assim como podem observar no texto sublinhado porem nao estou conseguindo.

Por favor se alguem souber como eu resolvo isso por favor me envie um email para ferreira@lightsystemsoft.com.br


procedure TForm1.Button1Click(Sender: TObject);
var
email: string;
begin
email := ´mailto:fh@ig.com.br´;
email := email + ´?subject=´ + ´Solicitação Orçamento do Catalogo´;[u:3a9d126b07]email := email + ´;&attachments=´ + ´c:\MultWin\Dados\Light.fdb´ + ´, [/u:3a9d126b07]
email := email + ´&body=´+´Dpto. Compras´ + #13+ ´ * A/C Sr. Augusto Fernando´;
0´;

ShellExecute(0, nil, pchar(email), nil, nil, sw_showmaximized)
end;