Здравствуйте, Solovej!
Только заново записать этот файл. Удалить строки не удастся.

Здравствуйте, Solovej!
Создаете второй текстовый файл. Потом построчно читаете первый и если строка не пуста, переписываете ее во второй. После окончания переименовать второй файл в первый.

<i>Здравствуйте, <b>Solovej</b>!</i>

Ответ привожу в виде примера с комментариями (см. приложение).

<i>Удачи!</i>

Приложение:
procedure TForm1.Button1Click(Sender: TObject);var File1, File2: TStringList; i, c: Integer;begin File1:= TStringList.Create; File2:= TStringList.Create; try// Читаем файл File1.LoadFromFile(‘test.txt‘);// получаем количество строк в файле c:= Pred(File1.Count);// цикл for i:= 0 to c do begin// если строчка не пустая, if not (Trim(File1[i]) = ‘‘) then// то добавляем новую строку во второй файл File2.Add(File1[i]); end;// сохраняем второй файл File2.SaveToFile(‘test.out.txt‘); finally// освобождаем неиспользуемые объекты FreeAndNil(File1); FreeAndNil(File2); end;end;

Здравствуйте, Solovej!Примерно так
AssignFile(f,fname)
Reset(f);
readln(f,s);
if s<>‘‘ then Memo1.lines.add(s);
CloseFile(f);
Memo1.Lines.save tofile(fname);
Удачи

Здравствуйте, Solovej!
1ый вариант: циклом с некоторой переменной i, которая после каждого считывания строки увеличивается, и, когда i - чётное/нечётное, строка записывается во второй файл, а в противном случае не записывается. Но возможен вариант, когда подряд несколько пустых строк. Для этого лучше воспользоваться вторым вариантом.
2ой вариант: См. код в приложении.

Приложение:
procedure Clear(filename, filename2:string);var f,ff : TextFile; s : string;beginIf FileExists(filename) then begin AssignFile(f, filename); Reset(f); AssignFile(ff,filename2); ReWrite(ff); Repeat ReadLn(f,s); if trim(s) <> ‘‘ then // function Trim(str:string):string; - очищает строку от пробелов в коце и начале строки WriteLn(ff,s); Until EOF(f); CloseFile(f); CloseFile(ff);end;