[Maksim V]

Попробовал создать ресурс так:

Код:

 STRINGTABLE
LANGUAGE LANG_RUSSIAN, 0x1
{
1653, 	"1653, 	"Исполняемый файл (*.exe)|*.exe|Динамическая библиотека (*.dll)|*.dll||"
}

Затем выполнил замену строк:

Код:

 .....
function CharReplace(const Source: string; oldChar, newChar: Char): string;
var
  i: Integer;
begin
  Result := Source;
  for i := 1 to Length(Result) do
    if Result[i] = oldChar then
      Result[i] := newChar
.....
lpstrFilter  := PChar(CharReplace(Номер строки, '|', #0))
.....