ayuda urgente con funcion y excel

[DarkBlue]

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]; //XLApplication.Range['E5','E5'].select;

                       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]; //XLApplication.Range['E5','E5'].select;

                       b:=tostring(v1);

ademas de que tienes que poner en ingles las formulas :S

[Casimiro Noteví]

Empezado por DarkBlue

ademas de que tienes que poner en ingles las formulas :S

Eso es de lo "bien" que está hecho, una auténtica chapuza.