Процедура Delete(Str: String; Start, Length: Integer)

procedure Tpaa.Button1Click(Sender: TObject);
var
  Temp: TStringList;
  Index: Integer;
begin
     Temp:= TStringList.Create();
  try
    for Index:= 0 to FList.Count - 1 do
if  (Pos('ворона', FList[Index]) <> 0) and (Temp.IndexOf(FList[Index]) = -1)
then Temp.Add(FList[Index]);
    try
      begin
Temp.SaveToFile('птицы.txt');
   end;
    except
      ShowMessage('error!');
    end;
  finally
    Temp.Free();
  end;
   end;