Удалить строку

[YurIbr89]

Удалить первые строки из обоих файлов.
Не удалять строки, если хотябы один из файлов пуст.

begin
 f:=TStringList.Create();
 p:=TStringList.Create();
 f.LoadFromFile('myFile1.htm');
 p.LoadFromFile('myFile2.htm');
 
if f.Count>0 and p.Count>0 then    Incompatible types
 f.Delete(0);
 p.Delete(0);
 f.SaveToFile('myFile1.htm');
 p.SaveToFile('myFile2.htm');
 f.Free;
 p.Free;
end;

В чём дело? С одним файлом всё нормально.

[Serge_Bliznykov]

приоритет операций не такой, как Вы ожидаете!
скобки надо поставить

if (f.Count>0) and (p.Count>0) then

ну и не понимаю, что Вы хотите сделать, но, судя по всему, Вы не видите, что после
if then (в случае, если оба файла не пусты). Удалится первая строка ТОЛЬКО ИЗ ФАЙЛА F

я подозреваю, что Вы так хотите:

if (f.Count>0) and (p.Count>0) then  begin
  f.Delete(0);
  p.Delete(0);
end;

или даже так:

if (f.Count>0) then f.Delete(0);
if (p.Count>0) then p.Delete(0);

и, кстати, предлагаю рассмотреть, чем эти варианты отличаются.
Думаю, что Вам это будет полезно.

[YurIbr89]

Огромнейшее спасибо!