I have change the filename from Memory to MMemory because the memoryy was used as a parameter.
and I think I came another step forward.
The compiler is standing at another place by the end of Font;
{ Draw the text }
Canvas.Font.Name := Font;
what can I do now ?
and compiler deliver the folowing message.
Hint: Start of reading config file D:\lazarus\fpc\2.2.2\bin\i386-win32\fpc.cfg
Hint: End of reading config file D:\lazarus\fpc\2.2.2\bin\i386-win32\fpc.cfg
Free Pascal Compiler version 2.2.2 [2008/10/05] for i386
Copyright (c) 1993-2008 by Florian Klaempfl
Target OS: Win32 for i386
Compiling package01.pas
Compiling D:\delphi\consts.pas
Writing Resource String Table file: consts.rst
Compiling MPlayer.pas
D:\Temp\MPlayer.pas(101,15) Warning: An inherited method is hidden by "TMediaPlayer.SetVisible(TButtonSet)"
D:\Temp\MPlayer.pas(283,52) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(434,42) Hint: Parameter "Color" not used
D:\Temp\MPlayer.pas(104,33) Hint: Parameter "YPos" not used
D:\Temp\MPlayer.pas(123,23) Hint: Parameter "Button" not used
D:\Temp\MPlayer.pas(124,27) Hint: Parameter "Button" not used
D:\Temp\MPlayer.pas(111,31) Hint: Parameter "Message" not used
D:\Temp\MPlayer.pas(113,30) Hint: Parameter "Message" not used
D:\Temp\MPlayer.pas(115,31) Hint: Parameter "Message" not used
D:\Temp\MPlayer.pas(149,38) Hint: Parameter "Shift" not used
D:\Temp\MPlayer.pas(859,49) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(909,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(954,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(989,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1011,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1041,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1061,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1121,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1179,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1207,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1251,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1278,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1299,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1325,57) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1335,47) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1346,49) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1357,49) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1384,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1428,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1442,61) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1476,61) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1498,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1512,60) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1529,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1534,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1539,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1544,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1549,53) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1558,58) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1571,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1582,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1593,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1603,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1613,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1624,59) Hint: Conversion between ordinals and pointers is not portable
D:\Temp\MPlayer.pas(1705,36) Hint: Converting the operands to "Int64" before doing the add could prevent overflow errors.
D:\Temp\MPlayer.pas(1705,36) Hint: Converting the operands to "Int64" before doing the multiply could prevent overflow errors.
D:\Temp\MPlayer.pas(1706,18) Hint: Converting the operands to "Int64" before doing the multiply could prevent overflow errors.
D:\Temp\MPlayer.pas(242,3) Hint: Local const "mci_Back" is not used
Compiling .\sebran\Delphi4\FILEREAD.PAS
D:\Temp\sebran\Delphi4\FILEREAD.PAS(161,3) Note: Local variable "b" not used
D:\Temp\sebran\Delphi4\FILEREAD.PAS(161,6) Note: Local variable "b2" not used
D:\Temp\sebran\Delphi4\FILEREAD.PAS(163,3) Note: Local variable "code" not used
D:\Temp\sebran\Delphi4\FILEREAD.PAS(226,52) Hint: Local variable "TempBufSize" does not seem to be initialized
D:\Temp\sebran\Delphi4\FILEREAD.PAS(237,5) Note: Local variable "i" not used
D:\Temp\sebran\Delphi4\FILEREAD.PAS(238,5) Note: Local variable "NyStr" not used
Compiling .\sebran\Delphi4\GENERELL.PAS
Compiling .\sebran\Delphi4\MESSAGE.PAS
MESSAGE.PAS(41,30) Hint: Parameter "Sender" not used
MESSAGE.PAS(42,30) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\MESSAGE.PAS(32,20) Hint: Unit "windows" not used in Message
D:\Temp\sebran\Delphi4\MESSAGE.PAS(32,30) Hint: Unit "messages" not used in Message
Compiling .\sebran\Delphi4\HMENY.PAS
Compiling .\sebran\Delphi4\HURMAN.PAS
Compiling .\sebran\Delphi4\HMENY.PAS
Compiling .\sebran\Delphi4\MMEMORY.PAS
Compiling .\sebran\Delphi4\HMENY.PAS
Compiling .\sebran\Delphi4\HANGMAN.PAS
Compiling .\sebran\Delphi4\HMENY.PAS
Compiling .\sebran\Delphi4\REGN.PAS
Compiling .\sebran\Delphi4\HMENY.PAS
Compiling .\sebran\Delphi4\ABOUT.PAS
Compiling .\sebran\Delphi4\HMENY.PAS
D:\Temp\sebran\Delphi4\HMENY.PAS(206,34) Warning: unreachable code
HMENY.PAS(89,24) Hint: Parameter "Sender" not used
HMENY.PAS(90,29) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\HMENY.PAS(90,46) Hint: Parameter "Button" not used
D:\Temp\sebran\Delphi4\HMENY.PAS(91,7) Hint: Parameter "Shift" not used
HMENY.PAS(92,26) Hint: Parameter "Sender" not used
HMENY.PAS(93,27) Hint: Parameter "Sender" not used
HMENY.PAS(94,28) Hint: Parameter "Sender" not used
HMENY.PAS(101,27) Hint: Parameter "Sender" not used
HMENY.PAS(112,27) Hint: Parameter "Sender" not used
HMENY.PAS(149,28) Hint: Parameter "Sender" not used
HMENY.PAS(150,30) Hint: Parameter "Sender" not used
HMENY.PAS(151,28) Hint: Parameter "Sender" not used
HMENY.PAS(152,29) Hint: Parameter "Sender" not used
HMENY.PAS(154,30) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\HMENY.PAS(31,30) Hint: Unit "messages" not used in Hmeny
ABOUT.PAS(60,24) Hint: Parameter "Sender" not used
ABOUT.PAS(61,28) Hint: Parameter "Sender" not used
ABOUT.PAS(62,26) Hint: Parameter "Sender" not used
ABOUT.PAS(64,31) Hint: Parameter "Sender" not used
ABOUT.PAS(66,37) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\ABOUT.PAS(31,30) Hint: Unit "messages" not used in About
D:\Temp\sebran\Delphi4\ABOUT.PAS(79,11) Hint: Unit "Hmeny" not used in About
D:\Temp\sebran\Delphi4\REGN.PAS(117,4) Note: Local variable "X1" not used
D:\Temp\sebran\Delphi4\REGN.PAS(117,7) Note: Local variable "X2" not used
D:\Temp\sebran\Delphi4\REGN.PAS(117,10) Note: Local variable "Y1" not used
D:\Temp\sebran\Delphi4\REGN.PAS(117,13) Note: Local variable "Y2" not used
REGN.PAS(45,26) Hint: Parameter "Sender" not used
REGN.PAS(46,24) Hint: Parameter "Sender" not used
REGN.PAS(47,28) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\REGN.PAS(188,4) Note: Local variable "Rectt" not used
REGN.PAS(48,27) Hint: Parameter "Sender" not used
REGN.PAS(49,28) Hint: Parameter "Sender" not used
REGN.PAS(50,29) Hint: Parameter "Sender" not used
REGN.PAS(51,25) Hint: Parameter "Sender" not used
REGN.PAS(52,28) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\REGN.PAS(31,30) Hint: Unit "messages" not used in Regn
D:\Temp\sebran\Delphi4\REGN.PAS(32,46) Hint: Unit "Message" not used in Regn
D:\Temp\sebran\Delphi4\REGN.PAS(32,65) Hint: Unit "MPlayer" not used in Regn
D:\Temp\sebran\Delphi4\REGN.PAS(83,10) Hint: Unit "Hmeny" not used in Regn
HANGMAN.PAS(57,26) Hint: Parameter "Sender" not used
HANGMAN.PAS(58,24) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\HANGMAN.PAS(200,6) Hint: Local const "Cols" is not used
D:\Temp\sebran\Delphi4\HANGMAN.PAS(201,6) Hint: Local const "Rows" is not used
D:\Temp\sebran\Delphi4\HANGMAN.PAS(203,4) Note: Local variable "i" not used
D:\Temp\sebran\Delphi4\HANGMAN.PAS(203,6) Note: Local variable "j" not used
D:\Temp\sebran\Delphi4\HANGMAN.PAS(204,4) Note: Local variable "X" not used
D:\Temp\sebran\Delphi4\HANGMAN.PAS(204,6) Note: Local variable "Y" not used
HANGMAN.PAS(59,28) Hint: Parameter "Sender" not used
HANGMAN.PAS(60,28) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\HANGMAN.PAS(262,6) Note: Local variable "j" not used
HANGMAN.PAS(61,33) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\HANGMAN.PAS(61,50) Hint: Parameter "Button" not used
D:\Temp\sebran\Delphi4\HANGMAN.PAS(62,7) Hint: Parameter "Shift" not used
HANGMAN.PAS(63,29) Hint: Parameter "Sender" not used
HANGMAN.PAS(64,28) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\HANGMAN.PAS(32,20) Hint: Unit "windows" not used in Hangman
D:\Temp\sebran\Delphi4\HANGMAN.PAS(32,30) Hint: Unit "messages" not used in Hangman
D:\Temp\sebran\Delphi4\HANGMAN.PAS(33,56) Hint: Unit "Message" not used in Hangman
D:\Temp\sebran\Delphi4\HANGMAN.PAS(98,10) Hint: Unit "Hmeny" not used in Hangman
MMEMORY.PAS(57,26) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\MMEMORY.PAS(154,4) Note: Local variable "DX" not used
D:\Temp\sebran\Delphi4\MMEMORY.PAS(154,7) Note: Local variable "DY" not used
D:\Temp\sebran\Delphi4\MMEMORY.PAS(263,23) Warning: Function result does not seem to be set
D:\Temp\sebran\Delphi4\MMEMORY.PAS(74,28) Hint: Parameter "X" not used
D:\Temp\sebran\Delphi4\MMEMORY.PAS(74,30) Hint: Parameter "Y" not used
MMEMORY.PAS(58,24) Hint: Parameter "Sender" not used
MMEMORY.PAS(59,29) Hint: Parameter "Sender" not used
MMEMORY.PAS(60,31) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\MMEMORY.PAS(60,48) Hint: Parameter "Button" not used
D:\Temp\sebran\Delphi4\MMEMORY.PAS(61,7) Hint: Parameter "Shift" not used
MMEMORY.PAS(62,28) Hint: Parameter "Sender" not used
MMEMORY.PAS(64,30) Hint: Parameter "Sender" not used
MMEMORY.PAS(65,30) Hint: Parameter "Sender" not used
MMEMORY.PAS(66,30) Hint: Parameter "Sender" not used
MMEMORY.PAS(67,28) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\MMEMORY.PAS(31,20) Hint: Unit "windows" not used in MMemory
D:\Temp\sebran\Delphi4\MMEMORY.PAS(31,30) Hint: Unit "messages" not used in MMemory
D:\Temp\sebran\Delphi4\MMEMORY.PAS(32,56) Hint: Unit "MPlayer" not used in MMemory
D:\Temp\sebran\Delphi4\MMEMORY.PAS(96,10) Hint: Unit "Hmeny" not used in MMemory
D:\Temp\sebran\Delphi4\HURMAN.PAS(209,50) Hint: Converting the operands to "Int64" before doing the multiply could prevent overflow errors.
D:\Temp\sebran\Delphi4\HURMAN.PAS(186,4) Note: Local variable "r" not used
D:\Temp\sebran\Delphi4\HURMAN.PAS(186,6) Note: Local variable "g" not used
D:\Temp\sebran\Delphi4\HURMAN.PAS(186,8) Note: Local variable "b" not used
D:\Temp\sebran\Delphi4\HURMAN.PAS(381,4) Note: Local variable "i" not used
HURMAN.PAS(56,29) Hint: Parameter "Sender" not used
HURMAN.PAS(57,26) Hint: Parameter "Sender" not used
HURMAN.PAS(62,27) Hint: Parameter "Sender" not used
HURMAN.PAS(63,24) Hint: Parameter "Sender" not used
HURMAN.PAS(64,28) Hint: Parameter "Sender" not used
HURMAN.PAS(65,28) Hint: Parameter "Sender" not used
HURMAN.PAS(66,28) Hint: Parameter "Sender" not used
HURMAN.PAS(67,28) Hint: Parameter "Sender" not used
HURMAN.PAS(68,28) Hint: Parameter "Sender" not used
D:\Temp\sebran\Delphi4\HURMAN.PAS(33,20) Hint: Unit "windows" not used in Hurman
D:\Temp\sebran\Delphi4\HURMAN.PAS(33,30) Hint: Unit "messages" not used in Hurman
D:\Temp\sebran\Delphi4\HURMAN.PAS(34,74) Hint: Unit "MPlayer" not used in Hurman
D:\Temp\sebran\Delphi4\HURMAN.PAS(89,10) Hint: Unit "Hmeny" not used in Hurman
D:\Temp\sebran\Delphi4\GENERELL.PAS(189,28) Warning: Symbol "Handle" is deprecated
D:\Temp\sebran\Delphi4\GENERELL.PAS(191,18) Warning: Symbol "Handle" is deprecated
D:\Temp\sebran\Delphi4\GENERELL.PAS(184,4) Note: Local variable "wtext" not used
D:\Temp\sebran\Delphi4\GENERELL.PAS(235,32) Error: Incompatible type for arg no. 1: Got "TFont", expected "AnsiString"
Hint: Found declaration: TFont.SetName(AnsiString)
D:\Temp\sebran\Delphi4\GENERELL.PAS(243,42) Error: Incompatible type for arg no. 6: Got "TFont", expected "AnsiString"
D:\Temp\sebran\Delphi4\GENERELL.PAS(181,11) Hint: Found declaration: DrawChar(LongInt, LongInt, TImage, AnsiString, LongInt, AnsiString, LongInt)
D:\Temp\sebran\Delphi4\GENERELL.PAS(301,31) Hint: Local variable "strTempSingular" does not seem to be initialized
D:\Temp\sebran\Delphi4\GENERELL.PAS(302,31) Hint: Local variable "strTempPlural" does not seem to be initialized
D:\Temp\sebran\Delphi4\GENERELL.PAS(370,31) Hint: Local variable "strTemp" does not seem to be initialized
D:\Temp\sebran\Delphi4\GENERELL.PAS(426,39) Hint: Local variable "strDummy" does not seem to be initialized
D:\Temp\sebran\Delphi4\GENERELL.PAS(505) Fatal: There were 2 errors compiling module, stopping