[NumLock]

Код:

var
  s: String;
begin
  (* s:=ExtractFilePath(Application.ExeName)+'icons\icon.txt'; *)
  s:=Copy(s, Length(ExtractFilePath(Application.ExeName))+1, MaxInt-1);