PosEx e LeftStr

Olá pessoal. Estou com dúvida de como usar o PosEx e o LeftStr. Devo fazer alguma função antes pra que não apareça como dão definida???? Quero pegar o valor de uma linha no meu treeview dando um duplo clique e depois quero que uma variável armazene o valor anterior a: " - " que são números.....não tá dando nem erro. Abaixo está o código:

procedure TForm_Vinis.TreeView_Faixas_VinilDblClick(Sender: TObject);
var
NovaString, suaString : string;

begin

suaString := TreeView_Faixas_Vinil.Selected.Text;
If PosEx(' - ', suaString, 1) > 0 then
begin
NovaString := LeftStr(suaString, PosEx(' - ', suaString, 1) - 1);
end
else
begin
novaString := suaString;
Label11.Caption := novaString;
end;
end;


Se eu não colocar isso antes ele dix que os comandos posex e leftstr não sao definidos:

function PosEx(const SubStr, S: string; Offset: Integer): Integer;
begin
end;
function LeftStr(const AText: string; const ACount: Integer): string;
begin
end;


O que faço....Obrigado.