Delphi - NO SE QUE PASA CON EL PUNTO

Hola, tengo en mi programa algo como esto:

s_1 :=copy(cad,1,(pos('.',cad))-1);

y me sale un error de
[Error] Unit1.pas(624): Missing operator or semicolon

pero si este renglón de código lo quito, el programa corre bien. Le he cambiado de varias maneras y he visto que el problema es el punto o cualquier caracter que declare, porque antes si declaro algo como esto P:='.', o P:='a'; entonces en este renglón tengo el error....

En los renglones anteriores y posteriores, todas las sentencias tienen el ; correspondiente
Alguien me podría ayudar???

Hola:

He copiado tu línea y la he puesto así y funciona perfectamente:

procedure TForm1.FormCreate(Sender: TObject);
var
s_1 : string;
cad : string;
begin
cad := 'Folletos.com';
s_1 :=copy(cad,1,(pos('.',cad))-1);
ShowMessage(s_1);
end;

Resultado: Folletos, y no da ningún error.

Mira a ver tu línea 624 a ver que ves, o si no copianos tu código para verlo entero.

Suerte. Virum.