Может ли быть вызвана объявленная, но неопределённая функция?

procedure TCompForm.btnDelCompilerSetClick(Sender: TObject);
begin
 
  //По моему это если остался единственный пункт настроек, то должен вылезти отказ в удалении, поэтому я  благополучно пропустил мимо глаз
  if cmbCompilerSetComp.Items.Count=1 then begin
    MessageDlg(Lang[ID_COPT_CANTDELETECOMPSET], mtError, [mbOk], 0);
    Exit;
  end;
 
  if MessageDlg(Lang[ID_COPT_DELETECOMPSET], mtConfirmation, [mbYes, mbNo], 0)=mrNo then
    Exit;
 
  //А вот здесь остановился
  devCompilerSet.Sets.Delete(cmbCompilerSetComp.ItemIndex);
  cmbCompilerSetComp.Items.Delete(cmbCompilerSetComp.ItemIndex);
  cmbCompilerSetComp.ItemIndex:=0;
  cmbCompilerSetCompChange(nil);
 
end;

devCompilerSet.Sets.Delete(cmbCompilerSetComp.ItemIndex);

TStrings = class(TPersistent)
  ;всякие другие процедуры
 
  procedure Delete(Index: Integer); virtual; abstract;

property Sets: TStrings read fSets write fSets;

procedure TCodeInsList.Delete(index: integer);
begin
  if (index <0) or (index > fList.Count -1) then exit;
 
  fList.Delete(index);
  fList.Pack;
  fList.Capacity:= fList.Count;
end;

procedure TMemoStrings.Delete(Index: Integer);
const
  Empty: PChar = '';
var
  SelStart, SelEnd: Integer;
begin
  SelStart := SendMessage(Memo.Handle, EM_LINEINDEX, Index, 0);
  if SelStart >= 0 then
  begin
    SelEnd := SendMessage(Memo.Handle, EM_LINEINDEX, Index + 1, 0);
    if SelEnd < 0 then SelEnd := SelStart +
      SendMessage(Memo.Handle, EM_LINELENGTH, SelStart, 0);
    SendMessage(Memo.Handle, EM_SETSEL, SelStart, SelEnd);
    SendMessage(Memo.Handle, EM_REPLACESEL, 0, Longint(Empty));
  end;
end;

  Application.Run;

devCompilerSet.Sets.Delete(cmbCompilerSetComp.ItemIndex);

    procedure Delete(Index: Integer); virtual; abstract;

  devCompilerSet.Sets.Delete(cmbCompilerSetComp.ItemIndex);
  cmbCompilerSetComp.Items.Delete(cmbCompilerSetComp.ItemIndex);

function TCustomCombo.GetItemIndex: Integer;
begin
  if csLoading in ComponentState then
    Result := FItemIndex
  else
    Result := SendMessage(Handle, CB_GETCURSEL, 0, 0);
end;

cmbCompilerSetComp.Items.Delete(cmbCompilerSetComp.ItemIndex);

procedure TStringList.Delete(Index: Integer);
begin
  if (Index < 0) or (Index >= FCount) then Error(@SListIndexError, Index);
  Changing;
  Finalize(FList^[Index]);
  Dec(FCount);
  if Index < FCount then
    System.Move(FList^[Index + 1], FList^[Index],
      (FCount - Index) * SizeOf(TStringItem));
  Changed;
end;

devCompilerSet.Sets.Delete(cmbCompilerSetComp.ItemIndex);

procedure SetNewText(aSl : TStrings);
var
  i : Integer;
begin
  aSl.Clear;
  Randomize;
  for i := 1 to 5 + Random(10) do
    aSl.Add(IntToStr( Random(100) ))
  ;
end;

var
  Memo1 : TMemo;
  ListBox1 : TListBox;
  ComboBox1 : TComboBox;
  StringList1 : TStringList;
begin
...
  SetNewText( Memo1.Lines );
  SetNewText( ListBox1.Items );
  SetNewText( ComboBox1.Items );
  SetNewText( StringList1 );
...

  SetNewText( StringList1 );

  SetNewText( StringList1 );

  devCompilerSet.Sets.Delete(cmbCompilerSetComp.ItemIndex);

function TCustomCombo.GetItemIndex: Integer;
begin
  if csLoading in ComponentState then
    Result := FItemIndex
  else
    Result := SendMessage(Handle, CB_GETCURSEL, 0, 0);
end;

procedure TStringList.Delete(Index: Integer);
begin
  if (Index < 0) or (Index >= FCount) then Error(@SListIndexError, Index);
  Changing;
  Finalize(FList^[Index]);
  Dec(FCount);
  if Index < FCount then
    System.Move(FList^[Index + 1], FList^[Index],
      (FCount - Index) * SizeOf(TStringItem));
  Changed;
end;

procedure_или_function <тут_имя_процедуры_или_функции> begin
 function TCustomCombo.GetItemIndex;
 procedure TStringList.Delete;
end;

 function TCustomCombo.GetItemIndex;
 procedure TStringList.Delete;

  devCompilerSet.Sets.Delete(cmbCompilerSetComp.ItemIndex);

devCompilerSet.Sets= <а здесь находится адрес объект класса X, который производный от класса TStrings>

  devCompilerSet:= TdevCompilerSet.Create;

constructor TdevCompilerSet.Create;
begin
  inherited;
  fSets:=TStringList.Create;
  UpdateSets;
  SettoDefaults;
end;

private
  function GetItemIndex:Integer;
  procedure SetItemIndex(Value:Integer);
  {...}
published
  property ItemIndex:Integer read GetItemIndex write SetItemIndex;

type
  TOne=class
  private
    FCount:Integer;
    procedure SetCount(v:Integer);
    function GetCount:Integer;
    function ToString:string;
    procedure SetCountFromStr(v:String);
  public
    constructor Create;
    property Count:Integer read GetCount write SetCount;
    property AsString:String read ToString write SetCountFromStr;
  end;
  
procedure TOne.SetCount(v:Integer);
begin
  if v>0 then
    FCount:=v
  else
    FCount:=0
end;
 
function TOne.GetCount:Integer;
begin
  Result:=FCount
end;
 
function TOne.ToString:string;
var
  i:Integer;
begin
  Result:='';
  if FCount=0 then
    Exit;
  for i:=1 to FCount do
    Result:=Result+'1'
end;
 
procedure TOne.SetCountFromStr(v:String);
var
  i:Integer;
begin
  FCount:=0;
  if length(v)=0 then
    Exit;
  for i:=1 to length(v) do
    if v[i]='1' then
      inc(FCount)
end;
 
constructor TOne.Create;
begin
  FCount:=0;
end;

One1.Count:=15;
Edit1.Text:=One1.AsString;

One1.SetCount(15);
Edit1.SetText(One1.ToString);//TEdit.Text - тоже свойство

property Count:Integer read FCount write SetCount;