Error: Undeclared identifier: 'EmptyString' (en truco 416)

[Greco]

Hola a todos, estaba probando la funcion para obtener la subcadena, esta funcion la encontre en los TRUCOS de ésta misma web (truco 416), la funcion es la siguiente:

function GetText(s: string; Indice: Byte;Separador:string='|'): string;
var i:Integer;
tmp:string;
begin
i:=1;
while i<=Indice do
begin
Delete(s,1,Pos(Separador,s));
Inc(i);
end;
if Pos(Separador,s)<>0 then
tmp:=Copy(s,1,Pos(Separador,s)-1)
else
tmp:=s;
if Length(tmp)=0 then
tmp:=EmptyString;
Result:=tmp;
end;

Pero me da el siguiente error al compilar:
[Error] Unit1.pas(43): Undeclared identifier: 'EmptyString'

EmptyString está en la antepenultima linea de la funcion.
Alguien que me alumbre:D para saber que pasa y poder solucionar el problemilla.

Saludos.

PD. Estoy usando D7.

[felipe88]

Creo que es EmptyStr

[Greco]

Creo que es EmptyStr

MUCHAS GRACIAS felipe88, corregí la linea y ahora me funciona.

Saludos.