From 97739823e988a558daffd86a49b3870353630a7a Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 19 Nov 2013 09:09:32 +0000
Subject: [PATCH] IDE: fixed compilation fpc 2.7.1

git-svn-id: trunk@43462 -
---
 ide/frames/project_resources_options.pas | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/ide/frames/project_resources_options.pas b/ide/frames/project_resources_options.pas
index c7aa2db6d1..4e254288fa 100644
--- a/ide/frames/project_resources_options.pas
+++ b/ide/frames/project_resources_options.pas
@@ -56,14 +56,16 @@ implementation
 procedure TResourcesOptionsFrame.btnAddClick(Sender: TObject);
 var
   FileName: String;
+  aFilename: String;
 begin
   if dlgOpen.Execute then
   begin
     for FileName in dlgOpen.Files do
     begin
+      aFilename := Filename;
       if not FProject.IsVirtual then
-        FileName := CreateRelativePath(FileName, FProject.ProjectDirectory);
-      AddResource(FileName);
+        aFileName := CreateRelativePath(aFileName, FProject.ProjectDirectory);
+      AddResource(aFileName);
     end;
   end;
 end;