ошибка с POS

[Romer9999]

Привет всем помогите пожалуйста решить проблему! Вот я писал писал программу и понадобилось сделать процедуру где бы она удаляла из строки '/' и '.' вобщем должна удалить из адреса к файлу всё лишнее кроме имени самого файла Например: (C:\Музыка\14 Дорожка 14.wma) должна оставить только (14 Дорожка 14)
вот что я понаписал:

 
 procedure TForm1.N2Click(Sender: TObject);
var
jo,v,pot,pos,vv,i:integer;
l,s2:string;
begin
  OpenDialog1.InitialDir:=Application.ExeName;
  if OpenDialog1.Execute then begin
  mediaplayer1.Enabled:=True;
mediaplayer1.filename:=OpenDialog1.FileName;
mediaplayer1.Open;
button1.enabled:=true;
button3.enabled:=true;
button2.enabled:=true;


l:=opendialog1.FileName;
 v:=length (l);  

pot:=pos ('.',l);
pos:=pos ('\',l);


if (pot>0) and (pos>0) then   begin
  s2:=copy(l,pot,v);
  delete (l,pot,v);
v:=length (l);

for i:=1 to v do begin
 pos:=pos ('\',l);
 if pos>0 then begin
 delete(l,i,pos);
 end;
 end;
 label2.Caption:=l;

     end; end;

Пишет ошибку на строке с (pot:=pos ('.',l)
Missing operator or semicolon
Помогите пожалуйста если кто знает что это.

[Волк]

Напиши extractfilename('Тут имя откуда берешь например:'OpenDialog1.FileName );

[mihali4]

Пишет ошибку на строке с (pot:=pos ('.',l)

Да нет, компилятор имеет в виду следующую строку.
Интересно - кто вас научил (или сами додумались?) использовать для имен переменных ключевые слова?
pos:=pos ('\',l);
Да к тому же так дико их использовать...
Или вы думаете, что "компутер, он такой умный - все схавает"?

З.Ы. Впрочем, на РОТ тоже может реагировать неоднозначно - вот нашел в хэлпе:

pot = (PPERF_OBJECT_TYPE)((PBYTE)pdb + pdb->HeaderLength);

Давайте нормальные имена переменным, и не будет таких казусов.

[Romer9999]

Спасибо всем большое ошибка в глупая в POS была просто переменную поменял и всё ok!
p.s
--------------------------
Волк пробовал как ты говорил написать extractfilename('Тут имя откуда берешь например:'OpenDialog1.FileName );
неполучается так как к переменной приравнивается не содержимое opendialog а сама фраза

[postal2]

Сообщение от Romer9999

Волк пробовал как ты говорил написать extractfilename('Тут имя откуда берешь например:'OpenDialog1.FileName );
неполучается так как к переменной приравнивается не содержимое opendialog а сама фраза

а ты неправильно делаешь, надо вот так:

edit2.Text:=extractfilename(edit1.T ext);

[Somebody]

Вообще, pos - не ключевое слово, поэтому можно (но не нужно) писать Pos := System.Pos(...)