{$APPTYPE CONSOLE}

program IsAssigned;

uses
  SysUtils;

type
  tFunction = function: string;

function GetString: string;
begin
  Result := 'Function result';
end;

var
  fFunction: tFunction;

begin
  try
    fFunction := nil;        // <-- это для предотвращения фантомных болей

    fFunction := GetString;

    if @fFunction <> nil then
      Writeln(fFunction)

    else
      Writeln('Function not assigned');

  except
    on gError: Exception do
      Writeln(gError.Classname, ': ', gError.Message);

  end;  
end.