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:

Código Delphi [-]
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 para saber que pasa y poder solucionar el problemilla.

Saludos.

PD. Estoy usando D7.

[[felipe88]]

Creo que es EmptyStr

[Greco]

Empezado por felipe88

Creo que es EmptyStr

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

Saludos.