Encontre esto
Uses ShellApi;
Código Delphi
[-]
Evento...
var
Correo: string;
begin
Correo:=sg.cells[3,Sg.Row];
If [Sg.Col,Sg.Row]=[3,sg.Row] then
ShellExecute(0, 'open', PChar('mailto:correo?subject=Enviado desde Asunto' ), nil, nil, SW_SHOWNORMAL);
end
ahora bien, en correo no logro que tome el valor de la variable me abre el correo como destino CORREO, Quien me ayuda..