hola, tiempo despues solucione esto pero creo que perdi el codigo asi que tu implementacion de esto no me funciono
Código Delphi
[-]
WS := XLApplication.ActiveSheet ;
F2:='=IsText(E'+inttostr(xx)+')';
WS.Range['e5', 'e5'].Formula := f2 ;
WS.Range['E6','E6'].select;
v1:= XLApplication.Range['E5','E5'].select;
showmessage(tostring( XLApplication.Range['E5','E5'].select));
if ((VarType(v1)=varBoolean) And (v1))Then ws.cells[xx,5].value:='0';
no se que hice mal