diff --git a/applications/fpchess/chessgame.pas b/applications/fpchess/chessgame.pas
index ee128e2b9..dc9d6b006 100644
--- a/applications/fpchess/chessgame.pas
+++ b/applications/fpchess/chessgame.pas
@@ -91,6 +91,7 @@ type
   public
     Board: TChessBoard;
     msg : String;
+    PlayerName: string;
     FirstPlayerIsWhite, IsWhitePlayerTurn: Boolean;
     Dragging: Boolean;
     DragStart, MouseMovePos: TPoint;
diff --git a/applications/fpchess/mainform.pas b/applications/fpchess/mainform.pas
index 6e3aea4e5..e493223c1 100644
--- a/applications/fpchess/mainform.pas
+++ b/applications/fpchess/mainform.pas
@@ -246,6 +246,7 @@ begin
 
   gSelectedModuleIndex := comboGameMode.ItemIndex;
   lModule := GetChessModule(gSelectedModuleIndex);
+  vChessGame.PlayerName := editPlayerName.Text;
   lModule.PrepareForGame();
 
   timerChessTimer.Enabled := True;
diff --git a/applications/fpchess/mod_fics.pas b/applications/fpchess/mod_fics.pas
index bf80b764c..9b53ddbe3 100644
--- a/applications/fpchess/mod_fics.pas
+++ b/applications/fpchess/mod_fics.pas
@@ -147,7 +147,7 @@ var
   lResult, WaitTerminated: Boolean;
   lMsg: string;
 begin
-  FICS_USER := 'FPChess';
+  FICS_USER := vChessGame.PlayerName;
   FICS_PASSWORD := editPassword.Text;
 
 //  SecondPlayerName := editSecondPlayerName.Text;