No funciona, ya lo habia pensado pero el compilador peta.
Debe ser algo como cuando se quiere crear un objeto outlook que se hace de la siguiente manera:
Código Delphi
[-]
var
outlook: OleVariant;
begin
outlook := GetActiveOleObject('Outlook.Application');
Pero no he encontrado aún como hacerlo.
Gracias de todas maneras.