Не могу понять в чем проблема!(copy,length,pos)

[zotox]

//все, осознал свою ошибку извените что еще чуток не подумал

[Alar]

var 
 xz,len1:integer;
 copy1,s:string;
begin
 s:='Это_мой_lдокумент.txt';
 xz:=pos('.txt',s);
 copy1:=copy(s,0,xz-1);
 edit1.Text:=copy1;
end;

Сообщения: 90

Пора бы научиться излагать суть вопроса в названии темы