[M.A.D.M.A.N.]

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

Код:

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

StringReplace еще присобачить можно.
А вообще, какой-то флейм начался. Если так будет продолжаться, придётся тему закрывать.