Para o navoid ou qualquer um que saiba...

Olá agradeço a ajuda recebida até agora, mas estou com nova dificuldade, como faço para utilizar a função MinutesBetween que o navoid me passou, como ele me mandou retorna um erro : Undeclared Identifier: ´MinutesBtween´, o que eu estou fazendo de errado? aí vai o código completo para dar uma olhada:
unit UFrmPrincipal;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, ExtCtrls, RxGIF, Gauges, StdCtrls;

type
TFrmPrincipal = class(TForm)
Panel1: TPanel;
Bevel1: TBevel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton7: TSpeedButton;
SpeedButton8: TSpeedButton;
SpeedButton9: TSpeedButton;
Image1: TImage;
Image2: TImage;
EdMinutos: TEdit;
Label1: TLabel;
Bevel2: TBevel;
Label2: TLabel;
Label3: TLabel;
SpeedButton10: TSpeedButton;
Gauge1: TGauge;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
FrmPrincipal: TFrmPrincipal;

implementation

{$R *.dfm}

procedure TFrmPrincipal.Timer1Timer(Sender: TObject);
var
tempo_total, tempo_passado: integer;
hora_fim, hora_inicio: TTime;
begin
hora_inicio:=now;
hora_fim:=hora_inicio + StrToInt(EdMinutos.Text);
tempo_total:= minutesbetween(hora_fim, hora_inicio);
tempo_passado:= minutesbetween(hora_fim, now);

gauge1.MaxValue:= tempo_total;
gauge1.progress:= tempo_passado;

end;

end.