mil perdones, no quise hacer eso creo que busque en otro lado encontrando la solucion mi prisa me hizo olvidarme de esto mil anos despues disculpas!!! muchas gracias a todos los que me han ayudado bueno la sintesis de esto es que excel retorna valores -1 y 1 para los boleanos aver
Código Delphi
[-] F2:='=IsText(E'+inttostr(xx)+')';
WS.Range['e5', 'e5'].Formula := f2 ;
WS.Range['E5','E5'].select;
v1:= XLApplication.Sheets[1].Cells[5,5];
b:=tostring(v1);
if (b='-1')Then ws.cells[xx,5].value:='0';
XLApplication.Range['E5','E5'].select;
XLApplication.Selection.ClearContents;
F2:='=IsBlank(E'+inttostr(xx)+')';
WS.Range['e5', 'e5'].Formula := f2 ;
WS.Range['E5','E5'].select;
v1:= XLApplication.Sheets[1].Cells[5,5];
b:=tostring(v1);
ademas de que tienes que poner en ingles las formulas :S