[9ik]

При вставке showAlert программа сразу вылетает, вот код:

program BSUIRaspisanie;
uses resloader;
uses parse;

var

  temp, s: string;
  res: resource;
  form,day,today,i: integer;
  week: char;


function NumberOfWeek: string; //Функция для определения номера учебной недели
const
START1213=1346011201;
END1213=1372622401;
START1314=1377460801;
END1314=1404158401;
START1415=1409515201;
END1415=1435694401;

begin

 if (today>START1213) and (today<END1213) then
   NumberOfWeek:=integerToString((((today-START1213)/604800) mod 4)+1);
 else
   if (today>START1314) and (today<END1314) then
     NumberOfWeek:=integerToString((((today-START1314)/604800) mod 4)+1);
   else
     if (today>START1415) and (today<END1314) then
       NumberOfWeek:=integerToString((((today-START1415)/604800) mod 4)+1);
     else
      showAlert('Ошибка', 'Не удалось прочитать время', loadImage('/icon.png'), ALERT_ERROR);
end;

begin
  today:=getCurrentTime;
  day:=getWeekDay(today)-2;
  week :=getChar(NumberOfWeek,0);

  OpenRes('test.txt');
  temp := ReadLinesBlock('140102.txt',day,1,1);
  closeRes;
  parse.line(temp, "/");

  i := 2;

  
  while (i < parse.len) do
  begin
  if (week = parse.get(i)) or (parse.get(i) = 'a') or (week =
      getChar(parse.get(i), 0)) or (week = getChar(parse.get(i), 1)) then
    s :=s + parse.get(i-2)+ chr(10) + parse.get(i-1) + chr(10);
    i := i + 3;
  end;
  ShowForm;
  form := FormAddString(s);
  //SetColor(255,0,0);
  //drawText(s+chr(13)+'Hello',0,0);
  //repaint;
  Delay(30000); // Небольшая задержка
end.