Que hago mal???

[ZayDun]

hola a todos los foreros... tengo un problema bastante extraño para mi, y es utilizo ClientSocket para conectar a una web y si contiene el mensaje ERROR lo indique y si no lo tiene pos que salte un mensaje.. el problema es que con este codigo que tengo el programa me muestra que exite un ERROR y tambien me muestra el showmessage indicandome que no existe ERROR.. yo ya no que problema puede existir.. muchas gracias al que pueda indicarmelo.

Código Delphi [-]
if Pos(ERROR',Log) <> 0  Then
Barra.Panels[0].text:=' ERROR EN...  '+uno.text+','+dos.text;
else
Showmessage('Siguiente Posicion '+uno.text+','+dos.text);

[molinero1]

prueba despues de la linea del if begin, y despues de la sentencia un end, a ver si asi no te salta el else.

[[kuan-yiu]]

En el if también hay una comilla sin cerrar o que sobra.

Código Delphi [-]
if Pos(ERROR,Log) <> 0  Then
Barra.Panels[0].text:=' ERROR EN...  '+uno.text+','+dos.text;
else
Showmessage('Siguiente Posicion '+uno.text+','+dos.text);

[DTAR]

Ya le sacaste la comilla simple al lado de ERROR,
ese es el 1º error..
el 2º es que antes del ELSE tienes un ; y al no tener un
begin end dentro de tu THEN para poder poner el else no tienes
que poner el ;
o sea te quedaria algo asi...

Código Delphi [-]
if Pos(ERROR,Log) <> 0  Then 
Barra.Panels[0].text:=' ERROR EN...  '+uno.text+','+dos.text
else 
Showmessage('Siguiente Posicion '+uno.text+','+dos.text);