+ Fixed some compiling errors

rtl/win32/crt.pp

@@ -379,7 +379,7 @@ begin
   DestCoor.X := WinMinX - 1;
   DestCoor.Y := WinMinY - 1;
 
-  ScrollConsoleScreenBuffer(OutHandle, SrcRect, ClipRect, DestCoor, CharInfo);
+  ScrollConsoleScreenBuffer(OutHandle, SrcRect, @ClipRect, DestCoor, CharInfo);
   Gotoxy(1,1);
 end;
 
@@ -399,7 +399,7 @@ Begin
   Coord.X := X;
   Coord.Y := Y;
 
-  FillConsoleOutputCharacter(OutHandle, CharInfo, WinMaxX - (X + 01), Coord, @Temp);
+  FillConsoleOutputCharacter(OutHandle, CharInfo, WinMaxX - (X + 01), Coord, Temp);
 end;
 
 
@@ -687,7 +687,7 @@ begin
   DestCoor.Y := Y - 2;
   ClipRect := SrcRect;
 
-  ScrollConsoleScreenBuffer(OutHandle, SrcRect, ClipRect, DestCoor, CharInfo);
+  ScrollConsoleScreenBuffer(OutHandle, SrcRect, @ClipRect, DestCoor, CharInfo);
 end; { proc. RemoveLine }
 
 
@@ -719,7 +719,7 @@ begin
   DestCoor.Y := Y;
   ClipRect := SrcRect;
 
-  ScrollConsoleScreenBuffer(OutHandle, SrcRect, ClipRect, DestCoor, CharInfo);
+  ScrollConsoleScreenBuffer(OutHandle, SrcRect, @ClipRect, DestCoor, CharInfo);
 end; { proc. InsLine }
 
 
@@ -989,7 +989,10 @@ begin
 end. { unit Crt }
 {
   $Log$
-  Revision 1.3  1999-04-23 09:06:17  michael
+  Revision 1.4  1999-04-30 11:34:27  michael
+  + Fixed some compiling errors
+
+  Revision 1.3  1999/04/23 09:06:17  michael
   + now it REALLY compiles
 
   Revision 1.2  1999/04/20 11:34:12  peter