Закрывается консольное приложение после выполнения.

[hemn6vyr]

После выполнения вот этого кода приложение закрывается несмотря на readln'ы. Подскажите в чём причина?

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  Winapi.Windows,
  Winapi.Messages,
  System.SysUtils,
  System.Variants,
  System.Classes,
  Data.DB,
  Data.Win.ADODB,
  Vcl.ComCtrls;

var
  Connect : TADOConnection;
  Query : TADOQuery;
  a:integer;
  b:string;
  Count:integer;
  Q,A1,A2,A3,A4:string;
  Sourse: TStringList;
  
function ReadQA(Ln: Integer): Boolean;
Var
  QA, vr:integer;
  S: String;
begin
  S := Trim(Sourse[Ln]);
  if Pos('.', S) = 4 then QA := 1;
  if Pos(')', S) = 2 then QA := 2;
  if A4 <> '' then  QA := 3;
  Case QA Of
    1 : Begin
          Count := StrToInt(S[1] + S[2] + S[3]);
          Delete(S, 1, Pos('.', S));
          Q := Trim(S);
          Write(Count);
          Writeln(Q);
        End;
    2 : Begin
          vr := StrToInt(S[1]);
          Case vr of
            1 : Begin
                  Delete(S, 1, Pos(')', S));
                  A1 := Trim(S);
                  Write('..');
                End;
            2 : Begin
                  Delete(S, 1, Pos(')', S));
                  A2 := Trim(S);
                  Write('..');
                End;
            3 : Begin
                  Delete(S, 1, Pos(')', S));
                  A3 := Trim(S);
                  Write('..');
                End;
            4 : Begin
                  Delete(S, 1, Pos(')', S));
                  A4 := Trim(S);
                  Write('..');
                End;
           End;
        End;
    3 : Begin
          Try
            Query.Close;
            Query.SQL.Clear;
            Query.SQL.Add('SELECT * FROM poks');
            Query.Open;
            Query.Append;
            Query.FieldByName('count').AsInteger := Count;
            Query.FieldByName('q').AsString := q;
            Query.FieldByName('a1').AsString := a1;
            Query.FieldByName('a2').AsString := a2;
            Query.FieldByName('a3').AsString := a3;
            Query.FieldByName('a4').AsString := a4;
            Query.Active:=True;
            Query.Post;
            Query.Close;
            WriteLn('OK');
            Result := True;
            A4 := '';
          Except
            on E: Exception do
            Writeln(E.ClassName, ': ', E.Message);
          End;
        End;
    End;
End;

Function Make(fs:string):boolean;
Var
I: Integer;
Begin
  Sourse:=TStringList.Create;
  if FileExists(fs) then Sourse.LoadFromFile(fs);
  for I := 0 to Sourse.Count+1 do
  Begin
  ReadQA(I);
  End;
End;

begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
    Connect := TADOConnection.Create(nil);
    Query := TADOQuery.Create(nil);
    Connect.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
                               GetCurrentDir + '\bd.mdb' +
                               ';Persist Security Info=False';
    Query.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
                                  GetCurrentDir + '\bd.mdb' +
                                  ';Persist Security Info=False';
    Query.Connection := Connect;
    Make('C:\1.txt');
    readln(a);
    readln(a);
    readln(a);



  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

[Человек_Борща]

срабатывает исключение. Перед последним end. поставь ReadLn;, его же поставь в Except блоке.

[hemn6vyr]

Сообщение от Человек_Борща

срабатывает исключение. Перед последним end. поставь ReadLn;, его же поставь в Except блоке.

Спасибо :-)
Странно, в обыкновенном приложении его не было :-)

[hemn6vyr]

Теперь ещё вопрос.
Суть программы в записи вопросов из текста в бд аксеса.
Почему последний вопрос считывается, а ответы нет?

[Человек_Борща]

не знаю, но тут ошибка:

  for I := 0 to Sourse.Count+1 do

замените на:

  for I := 0 to Sourse.Count - 1 do

мб из-за неё.

[hemn6vyr]

Сообщение от Человек_Борща

не знаю, но тут ошибка:

  for I := 0 to Sourse.Count+1 do

замените на:

  for I := 0 to Sourse.Count - 1 do

мб из-за неё.

Правильно :-) Промахнулся маленько когда печатал и всё :-) Вчера ещё нашёл, но всёравно спасибо :-)