Buscar y/o reemplazar una celda en Excel...
 

Hola, No quiero reemplazar todos los valores de la hoja

Como hago para buscar y/o reemplazar un valor y que se posicione en dicha celda y saber cual es dicha celda ?

Estoy trabajando con Delphi 7 y excel2000 y los componentes de la solapa Servers

Yo tengo el siguiente codigo que reemplaza "hola" por "chau"

ExcelApp.Connect;
ExcelApp.Workbooks.Open('C:\MiArchivo.xls',EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
ExcelApp.Visible[0] := True;
WS.ConnectTo(ExcelApp.Sheets[1] as _Worksheet);
WS.UsedRange[0].Replace('hola','chau',xlPart,xlByRows,False,False);

donde :
ExcelApp = TExcelApplication
WS = TExcelWorksheet

Pero este codigo me reemplaza todos los "hola" yo necesito que me reemplace el primero y se quede en la celda buscada o reemplazada y saber cual es dicha celda

Desde ya muchas gracias

agregar valor
 

yo lo hago de la siguiente manera

ExcelApplication1.Cells.Item[i,j].Value:='Hola';

este codigo
 

y para iniciar una busqueda en toda la hoja puedes hacer lo siguiente:

Por ejemplo tenemos una hoja de 10 columnas por 20 filas

for i:=1 to 10 do
begin
for j:=1 to 20 do
begin
cadena:=ExcelApplication1.Cells.Item[i,j].Value;
if cadena='Hola' then
ExcelApplication1.Cells.Item[i,j].Value:='Chau';
end;
end;