Getting a filename to use in error loading

I have the following code:

'---------------------------------------------------------------------------------------------------
' Fuction CreateObject
' Creates the Game Object
'---------------------------------------------------------------------------------------------------
	Function CreateObject(Obj:TGameObject, Image:TImage, New_X_Start_Position:Int,New_Y_Start_Position:Int, New_Scale:Float=1.0)

        Obj.X_Start_Position = New_X_Start_Position
        Obj.y_start_position = New_Y_Start_Position
        Obj.X_Scale = New_Scale
        Obj.Y_Scale = New_Scale
        Obj.Image = Image

       If Obj.Image=Null
           Print "Not able to load image file. Program aborting"
           End
       EndIf
		
		Obj.Reset()
		
        ListAddLast GameObjects, Obj 
	End Function

I would like to change it so instead of the static message "Not able to load image file. Program aborting" printing out when the image doesn't excist, i would like it to print "Not able to load image file filename_here. Program aborting". I have tried the following code to no avail

'---------------------------------------------------------------------------------------------------
' Fuction CreateObject
' Creates the Game Object
'---------------------------------------------------------------------------------------------------
	Function CreateObject(Obj:TGameObject, Image:TImage, New_X_Start_Position:Int,New_Y_Start_Position:Int, New_Scale:Float=1.0)

        Obj.X_Start_Position = New_X_Start_Position
        Obj.y_start_position = New_Y_Start_Position
        Obj.X_Scale = New_Scale
        Obj.Y_Scale = New_Scale
        Obj.Image = Image

       If Obj.Image=Null
           Print "Not able to load image file " + String(Obj.Image) + ".Program aborting"
           End
       EndIf
		
		Obj.Reset()
		
        ListAddLast GameObjects, Obj 
	End Function

Any ideas?