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

[Sciv]

k:=0;
for i:=0 to Memo1.Lines.Count div 3-1 do begin
  sFio := Memo.Lines[k] +' ' +  Memo.Lines[k+1] + ' '+Memo.Lines[k+2];  //Пробелы между словами не забывайте
  Memo.Lines[i]:=sFio;
  inc(k,3);
end;

//Далее нужно удалить те строки, которые остались между последней фамилией и
//концом Memo (если что, то в переменной i как раз содержится номер последней фамилии)

k:=Memo.Lines.Count-1;
While k<>i-1 do begin
  Memo.Lines.Delete(k);
  k:=Memo.Lines.Count-1; //ну или dec(k); или k:=k-1;
end;

[Delphi_developer]

Всем спасибо. Немного "подшлифовал" код и все пошло. Извините, если достал.)) Тема закрыта

[Delphi_developer]

Sciv, тебе особое спасибо за поддержку. Удачи!