1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var
  EditCanvas : TControlCanvas;
begin
  EditCanvas := TControlCanvas.Create;
  try
    EditCanvas.Control := Edit1;
    EditCanvas.Brush.Color := clWhite;
    EditCanvas.Brush.Style := bsDiagCross;
    EditCanvas.FillRect((Rect(0, 0, 200, 50)));
  finally
    EditCanvas.Free;
  end;
end;