[icWasya]

Сообщение от Pcrepair

да, точно, компилятор предупреждает
так что делать? присвоить до цикла какое то значение? но какое?

У Вас внутри тела цикла уже есть проверка

Код:

function Del(const AData:string):string; 
var
  Pos1,Pos2:integer; 
  Buf:string;
begin
  Buf:=AData;  
  while true do //    
    begin      
      Pos1:=PosEx('<',Buf,1);       
      if (Pos1 = 0) then Break;   
      Pos2:=PosEx('>',Buf,Pos1);       
      if (Pos2 = 0) then Break;   (*защита*)      
      Delete(Buf,Pos1,(Pos2-Pos1));
   end;     
  Result:=Buf; 
end;