Обрезать 4 последних знака в Edit

[ZverBlin]

Есть код

Edit5.text:=(listbox1.Items.Strings[ListBox1.ItemIndex]);

Он выводит выделенное поле listbox в edit
В listbox оно выглядит так блабла123блабла.txt
Ну и конечно при нажатии на него, в Edit появляется блабла123блабла.txt
Как обрезать всегда .txt?
Или каким образом показывать в Listbox без расширения файла
Вот код

var
F: TSearchRec;
begin
FindFirst('C:\Documents and Settings\...\'+'*.txt', faHidden+ faSysFile, F);
begin
Listbox1.Items.add(F.Name);
while FindNext(F) = 0 do Listbox1.Items.add( F.Name);
end;
FindClose(F);
end;

[Hacker19_90]

Edit5.text:=copy(listbox1.Items.Strings[ListBox1.ItemIndex], 1, pos('.',listbox1.Items.Strings[ListBox1.ItemIndex]));

[Аватар]

На случай если еще точки в тексте возможны, то

if (Length(s)>=4) and (AnsiUpperCase(Copy(s,Length(s)-3,4))='.TXT') then s:=Copy(s,1,Length(s)-4);

Убрать любое расширение

s:=Copy(s,1,Length(s)-Length(ExtractFileExt(s)));

[ZverBlin]

Переменная var?
Куда пихать?

s:=Copy(s,1,Length(s)-Length(ExtractFileExt(s)));

[Аватар]

Куда пихать?

Вопроса не понял. В s (String) анализируемая строка, подставь свою, Copy возвращает String, куда надо туда и пихай

[Hacker19_90]

пффф
ну вот так

Edit5.text:=Copy(listbox1.Items.Strings[ListBox1.ItemIndex],1,Length(listbox1.Items.Strings[ListBox1.ItemIndex])-Length(ExtractFileExt(listbox1.Items.Strings[ListBox1.ItemIndex])));

[digital-stream]

var
F: TSearchRec;
begin
FindFirst('C:\Documents and Settings\...\'+'*.txt', faHidden+ faSysFile, F);
begin
Listbox1.Items.add(ExtractFileName( F.Name));
while FindNext(F) = 0 do Listbox1.Items.add( F.Name);
end;
FindClose(F);
end;