Вопрос Помогите воткнуть процедуру

[zettend]

Здравствуйте.
Есть код:

procedure LoadBGImage(Param: AnsiString; ServerFile: PAnsiChar);
var
  ColorImage: LongInt;
  tmpS, tmpN, StyleN: AnsiString;
  tPos, i: Integer;
begin
  LoadStringFromFile(ExpandConstant('{src}\'+ServerFile), tmpS);
  tPos:=Pos(Param, tmpS)+Length(Param);
  for i:=tPos to Length(tmpS) do begin
    if tmpS[i] <> #13 then begin
      if (tmpS[i] <> '=') and (tmpS[i] <> ':') and (tmpS[i] <> ' ') then tmpN:=tmpN+tmpS[i];
    end else Break;
  end;
  case Lowercase(tmpN) of
    Lowercase('1'): StyleN:='Style_1(); Style_Btns_1(); Style_Img_1();';
    Lowercase('2'): StyleN:='Style_2(); Style_Btns_2(); Style_Img_2();';
    Lowercase('3'): StyleN:='Style_3(); Style_Btns_3(); Style_Img_3();';
  else StyleN:='Style_1(); Style_Btns_1(); Style_Img_1();';
  end;
  StyleN;
end;
LoadBGImage('bg', 'bg.txt');

Как его заставить работать?

 

[Shegorat]

Я таки дико извиняюсь, но что конкретно она должна делать? Сейчас я вижу бессмысленный набор действий.

 

[zettend]

Shegorat, напишите свой ник GitHub. Я вам дам доступ к закрытому репозиторию.

 

[Shegorat]

Такой же, как и здесь

 

[zettend]

Shegorat, отправил. Доп инфа в Readme.