Delphi - Busqueda de carácteres en cadenas

Hola Amigos:

Tengo una función que quiero le paso una cadena por valor que contiene el carácter ´-´ la funció tendria que retornarme lo que hay del inicio de la cadena hasta al guión
He creado esta función pero siempre me devuelve ´´. En este caso cogo el valor de un combobox:

function TFrmSubFamilies.ExtreureCodi;
var inici:integer;
Begin
inici:=Pos(´-´,Combobox1.Text);
ExtreureCodi:=Copy(Combobox1.text,inici,(Length(Combobox1.text)-inici))

End;

Como lo tengo que hacer

Hola Roger
Me parece que es solo error en los parámetros que usas en el copy.
--------------
copy(String,Caracter de Inicio, Cantidad de Caracteres): String ;
-------------

function TFrmSubFamilies.ExtreureCodi : String ;
var I :integer;
Begin
I :=Pos(´-´,Combobox1.Text);
Result :=Copy(Combobox1.text,1,I)
// o I-1 si no queres el ´-´incluido
// en la cadena resultado
End;

Saludos

Hola Jose:

He probado la función que has creado hi me sigue devolviendo siempre ´´.
Que puede ser lo que sigue fallando. Esta Función la invocó de la siguiente forma:
Codi:=ExtreureCodi;
Donde ´Codi´ és una variable String

Michas Gracias