Перенос текста в DB Access. Delphi

[hemn6vyr]

Нужно перенести текст (строки) формата

001. вопрос
1) ответ 1
2) ответ 2
3) ответ 3
4) ответ 4

в базу данных Access формата |q|a1|a2|a3|a4|
где q - вопрос, а a1..a4 ответы.
Пытался писать, не особо получилось. Вот то что я написал

procedure TMainForm.Button1Click(Sender: TObject);
begin
  while i < 500 do
    begin;
    qsel;
    NewRecord;
    i:=i+1;
    end;
end;

function TMainForm.NewRecord: boolean;
begin
  try
    try
      ADOQuery1.Append;
      ADOQuery1.FieldByName('q').AsString   :=  q;
      ADOQuery1.FieldByName('a1').AsString  :=  a1;
      ADOQuery1.FieldByName('a2').AsString  :=  a2;
      ADOQuery1.FieldByName('a3').AsString  :=  a3;
      ADOQuery1.FieldByName('a4').AsString  :=  a4;
    except
      on e:Exception do
    end;
  except
    on e:Exception do
  end;
  try
    ADOQuery1.Active:=True;
    ADOQuery1.Post;
  except
    on e:Exception do
  end;
end;

function TMainForm.qa: boolean;
begin
  if Pos('.', Trim(S)) = 4  then
    result := true
  else
    begin
      if Pos(')', Trim(S)) = 4 then
      result := false;
    end;
end;

procedure TMainForm.qsel;
begin
  S := Trim(Memo1.Lines[i]);
  if qa = True then
      begin
        Delete(S, 1, Pos('.', Trim(S)));
        Edit1.Text := s;
        i:= i+1;
      end
    else
      begin
      for I := i to i+4 do
        begin
        Case StrToInt(S[i]) Of
          1:  begin
                Delete(S, 1, 2);
                Edit2.Text := Trim(S);
              end;
          2:  begin
                Delete(S, 1, 2);
                Edit3.Text := Trim(S);
              end;
          3:  begin
                Delete(S, 1, 2);
                Edit4.Text := Trim(S);
              end;
          4:  begin
                Delete(S, 1, 2);
                Edit5.Text := Trim(S);
              end;
        end;
        end;
end;

S - строка.
qsel - загон нужной строки в переменную. qa - проверка является вопросом или ответом.
Используется XE3