diff --git a/lcl/interfaces/wince/wincewinapi.inc b/lcl/interfaces/wince/wincewinapi.inc
index 896724d07e..7163c3eff8 100644
--- a/lcl/interfaces/wince/wincewinapi.inc
+++ b/lcl/interfaces/wince/wincewinapi.inc
@@ -1312,13 +1312,6 @@ begin
   Result := Integer(DrawFocusRect(DC,Arect));
 end;
 
-
-function TWinCEWidgetSet.Frame(DC: HDC; const ARect: TRect): Integer;
-begin
-//roozbeh....works for now!
-  Result := Integer(DrawFocusRect(DC,Arect));
-end;
-
 {------------------------------------------------------------------------------
   Method:  GetActiveWindow
   Params: none
diff --git a/lcl/interfaces/wince/wincewinapih.inc b/lcl/interfaces/wince/wincewinapih.inc
index 4a3662674e..f1934905cf 100644
--- a/lcl/interfaces/wince/wincewinapih.inc
+++ b/lcl/interfaces/wince/wincewinapih.inc
@@ -101,7 +101,6 @@ function ExtTextOut(DC: HDC; X, Y: Integer; Options: Longint; Rect: PRect; Str:
 function ExtSelectClipRGN(dc: hdc; rgn : hrgn; Mode : Longint) : Integer;  override;
 
 function FillRect(DC: HDC; const Rect: TRect; Brush: HBRUSH): Boolean; override;
-function Frame(DC: HDC; const ARect: TRect): Integer; override;
 function Frame3d(DC: HDC; var ARect: TRect; const FrameWidth : integer; const Style : TBevelCut): Boolean; override;
 function FrameRect(DC: HDC; const ARect: TRect; hBr: HBRUSH): Integer; override;