funcion , listbox y conversion

[mainau]

Hola foreros , buenas noches, ya estoy otra vez en un fregado a ver si me iluminais bueno al toro:

Tengo una funcion :

Código Delphi [-]
function seltext(listbox1: Tlistbox) : string;
var 
  nitem: integer;
begin
  nitem:=listbox1.itemindex;
  if nitem >= 0 then 
    Result:= listbox1.items [nitem]
  else
    Result:='';
end;

que me devuelve una cadena cuando intengo pasar esta a integer

Código Delphi [-]
 
canal := 25 + strtoint(seltext())

de esta manera me devuelve el siguiente error :

NOT ENOUGH ACTUAL PARAMETERS
no se lo que hago mal espero vuestra ayuda , gracias por todo.