Tag i zamienianie tekstu

Mam tu taką funkcję:

function nazwapliku(Plik, text : string): string;
begin
      if mytag.ReadFromFile(plik) then
       if  mytag.Exists then
       begin
           text := StringReplace(text, 'vTytuł', mytag.Title, [rfReplaceAll, rfIgnoreCase]);
           text := StringReplace(text, 'vArtysta', mytag.Artist, [rfReplaceAll, rfIgnoreCase]);
           text := StringReplace(text, 'vAlbum', mytag.Album, [rfReplaceAll, rfIgnoreCase]);
           text := StringReplace(text, 'vŚcieżka', inttostr(mytag.track), [rfReplaceAll, rfIgnoreCase]);
           text := StringReplace(text, 'vRok', mytag.Year, [rfReplaceAll, rfIgnoreCase]);
           text := StringReplace(text, 'vStyl', mytag.Genre, [rfReplaceAll, rfIgnoreCase]);
           text := StringReplace(text, 'vKompozytor', mytag.Composer, [rfReplaceAll, rfIgnoreCase]);
           text := StringReplace(text, 'vURL', mytag.Link, [rfReplaceAll, rfIgnoreCase]);
           text := StringReplace(text, 'vKoder', mytag.Encoder, [rfReplaceAll, rfIgnoreCase]);
           text := StringReplace(text, 'vPrawa', mytag.Copyright, [rfReplaceAll, rfIgnoreCase]);
       end;
       result := text;
end;

I przyjmijmy że w edicie ma tekst vAlbum - vTytuł
Dzięki tej funkcji powinno mi dać np. taki efekt:
Big CYC - Świat według kiepskich.

Dleczego ta funkcja nie działa. Pojawia się taki sam tekst jak w edicie!

zmień text: string na tekst: string, potem linijke niżej daj var text: string; i po begin daj text := tekst;

Ciągle nie działa

OK problem rozwiązany.