warum kommt es hier zu einem fehler?

[fdsgbla]

warum geht das hier nicht:

Delphi-Quellcode:

procedure TfrmMain.FormCreate(Sender: TObject);
var
  Buffer: Array[0..MAX_COMPUTERNAME_LENGTH +1] of Char;
  Size: DWord;
begin
  Size := Pred(SizeOf(Buffer));
  Windows.GetUserName(Buffer, Size);
  lblName1.Caption := StrPas(Buffer);

  ResetData;
end;


procedure ResetData;
begin
  frmMain.lblSeit1.Caption := DateTimeToStr(Now);
  frmMain.Caption := 'XZeit - ' + DateTimeToStr(Now);
end;

wenn ich das kompiliere kommt es zu einem fehler:
E2003 Undeclared identifier: 'ResetData'