[OrionIgorek2008]

Вот написал функцию, но она почему-то неработает:

Код:

function UnCom(Source,Sep:string): String;
var
  SepPos: integer;
begin
  SepPos:=AnsiPos(Sep,Source);
  if SepPos<>0
    then result:=Trim(Source)
    else result:=Trim(AnsiLeftStr(Source, Sep));
end;

Delphi ошибку пишет:
[Error] Unit1.pas(34): Undeclared identifier: 'AnsiLeftStr'

Подскажите пожалуйста, что делать?