Удаление по названию из упорядоченного массива

function TSection.FindNews(_NewsName: string):string;
var
 i:byte;
begin
  for i:=1 to GetCount do
    if NewsArray[i].GetTitleName = _NewsName Then
    begin
      Result :=i;
      Exit;
    end;
  Result := 0;
end;
 
 
function TSection.DeleteNews(_NewsName:string): boolean;       
var
  i,tmp: Byte;
begin
  Result := False;
  if count <> 0 then
  begin
    tmp := FindNews(_NewsName:string);
    if tmp <> 0 then
    begin
      for i:=tmp to Count-1 do NewsArray[i] := NewsArray[i+1];
      NewsArray[Count] := nil;
      Dec(Count);      
      Result := True;
    end;
  end;
 end;

function TSection.FindNews(_NewsName: string):string;
var
 i:byte;
 StrList:TStringList;
begin
StrList:= TStringList.Create(_NewsName:string);
  for i:=1 to StrList.Count-1 do
    if NewsArray[i].GetTitleName = _NewsName Then
    begin
      Result :=StrList[i];
      Exit;
    end;
  Result := 0;
end;
 
 
function TSection.DeleteNews(_NewsName:string): boolean;       
var
  i: Byte;
  Lst:TStringList;
begin
  Result := False;
  if count <> 0 then
  begin
    Lst := FindNews(_NewsName:string);
    if Lst:=NewsName then
    begin
      for i:=Lst[index] to Count-1 do NewsArray[i] := NewsArray[i+1];
      NewsArray[Count] := nil;
      Dec(Count);      
      Result := True;
    end;
  end;
 end;