Delphi - linea

nesecito un poco de ayuda, bueno paso a explicarle, quiero contar los espacios en blanco de un texto, coloque un memo de ahi extraigo las lineas y llamo a una funcion la cual sacaria la cantidad de espacios en blanco de esa linea,
en pascal lo haria asi
function contar(linea:string):byte;
var
I:byte
begin
for I:=1 to length(linea) do
if linea[I]='' then

no se por que razon no envio todo lo que escribi aqui continua el codigo
function contar(linea:string):byte;
var
i:byte;
ce:word;
begin
ce:=0;
for i:=1 to length(linea) do
if linea[I]='' then
ce:=ce+1;
contar:=ce;
no se por que en delphi no corre bien o no me devuelve lo que nesecito , y desde ya gracias y espero respuestas

\'\' cadena nula if linea[i]=\'\' then... y no era asi
\' \' space if linea[i]=\' \' then... era asi
disculpen por las molestia gracias igual