Конвертация Excel в txt

[Delphi_developer]

Коллеги, подскажите! Есть файл Excel. Нужно выбрать из него часть сведений и перенести в конечный текстовый файл. Алгоритм следующий:
1. с 13-й строки начать перебор строк в файле. Прочитать 12 строк, т.е. строки с 13-й по 25-ю.
2. после пропустить 41 строку, т.е. до 66-й строки
3.снова прочитать 12 строк, пропустить 41 строку и т.д. до конца файла.

Мой код

var
Excel:Variant;
 j, k: integer;
s:string;
const xlCellTypeLast=$000000B;
begin
Excel:=CreateoleObject('Excel.Application');
Open1.Filter:=' Файлы MS Excel|*.xls;*.xlsx|';
if Open1.Execute then
try
Excel.Workbooks.Open(Open1.FileName, false);
j:=excel.ActiveCell.SpecialCells(xlCellTypeLast).Row;// последняя не пустая строка в документе
k :=13;
  while k<>j do
  begin
s:=excel.cells[k,11].value;
Memo1.Lines.Add(s);
  k :=k+1;
 end;
 except;
 end;
  Excel.Workbooks.Close;
  excel.quit;
 excel :=unassigned;
 // курсор на начало в Memo
 Memo1.SelStart:=0;
 Memo1.SelLength := 0;

end;

Не достиг нужного результата. Пробовал по-разному.
Мой конечный файл прилагаю.
Мне информация именно по человеку нужна, а документацию исключить. Именно эти строки и надо пропускать. Знаю, что цикл надо корректировать.. Подскажите конечный вариант.
Пример:

Зухайраев
Увайс
Хасейнович
М
"01" июля 2012 года
"01" июля 2012 года
---
АРГУН

ЧЕЧЕНСКАЯ РЕСПУБЛИКА

113
03 июля 2012 года

[Sciv]

while k<>j do begin
  For i:=1 to 12 do begin
    s:=excel.cells[k+i,11].value;
    Memo1.Lines.Add(s);
  end;
  k :=k+53; //k:=k+12(с данными)+41(пропустить)
end;

Вот как-то так, наверное? Только переменную i не забудьте объявить

P.S. Если Вы тут текстовый файлик выложили с реальными данными, то почитайте о законе 152-ФЗ - за такое нынче хорошо штрафуют

[Delphi_developer]

Спасибо. Попробую Ваш вариант. На счет ФЗ Вы правы. Файл изменен. Я выложил его только для примера!

[Delphi_developer]

Не проходит

[Delphi_developer]

Разобрался. Просто голова не соображала вчера уже. Sciv, спасибо еще раз.

[Delphi_developer]

Возник иной вопрос. Если в Memo строки идут так

Иванов
Иван
Иванович

Петров
Петр
Петрович

........
...... и т.д.,
то мне нужно вывести в одну строку, т.е

Иванов Иван Иванович,
Петров Петр Петрович,
..................
..................

Вывести все строки в одну можно так:

s2 := StringReplace(Memo1.Lines.Text, #10#13, ' ', [rfReplaceAll]);
   Memo1.Lines.Text :=s2;

, а мне нужно вывести отдельно ФИО каждого

[Serge_Bliznykov]

так?

k:=0;
for i:=0 to Memo1.Lines.Count div 3 do begin
  sFio := Memo.Lines[k] +' ' +  Memo.Lines[k+1] + Memo.Lines[k+2];
  // для отладки покажем sFIO
  ShowMessage('ФИО = '+sFio);
  inc(k,3);
end;

[Delphi_developer]

Не совсем. Если использовать мой вариант, то получается в результате

Иванов Иван Иванович Петров Петр Петрович....

Мне нужно чтобы ФИО следующего человека начиналось с новой строки:

Иванов Иван Иванович
Петров Петр Петрович
..................

У Вас он отбирает ФИО в отдельности. Думаю строка смутила

мне нужно вывести отдельно ФИО каждого

Поправлюсь: вывод ФИО следующего человека на новой строке, но чтобы ФИО было прописано в строку, а не в столбик

P.S. Извините за простой вопрос

[Sciv]

А вот это не забыли?

 k:=0;
for i:=0 to Memo1.Lines.Count div 3 do begin
  sFio := Memo.Lines[k] +' ' +  Memo.Lines[k+1] + Memo.Lines[k+2];
Memo.Lines[i]:=sFio;
  inc(k,3);
end;

[Delphi_developer]

Не забыл. Вторая запись повторяется При таком содержимом Memo

Иванов
Иван
Иванович

Петров
Петр
Петрович

Получается

Иванов ИванИванович
ПетровПетр
Петрович

Петров
Петр
Петрович

Нужно

Иванов Иван Иванович
Петров Петр Петрович
................................... .
...................................
...................................