Bordas coloridas em Edits

Ae galera iMasters, to precisandu de um help..

A ideia é criar um componente Edit com a borda +- = ao BorderStyle := bsSilgle;

so q ao invez de preto, eu kero a borda clSilver, ou qq outra cor

bem, pensei q seria so mexer na procedure paint; override e td beleza..

kem disse q tem?!?!

ok, achei a tal da

procedure WMNCPaint(var Message: TMessage); message WM_NCPAINT;

q é da class TWinColtrol ( criadora da TEdit )

mas num da certo, eu tentei usar o TBitMap, fazendu um quadrado com as borda cinza

consegui!!! (ae...)

mas da uns bug

e um fica legal...

talvez seja na hora de criar a bmp

procedure TBmpEdit.CreateBorder;var x: Integer; y: Integer;begin FBorda.Free; FBorda := TBitmap.Create; //FBorda.Transparent := true; //FBorda.TransparentColor := clWhite; FBorda.Height := Height; FBorda.Width := Width; FBorda.Canvas.Brush.Color := clWhite; FBorda.Canvas.Rectangle(0,0,Width, Height); //FBorda.Canvas.Brush.Style := bsSolid; FBorda.Canvas.Pen.Style := psSolid; FBorda.Canvas.Pen.Color := clSilver; //FBorda.Canvas.Pixels[0,0] := clSilver; FBorda.Canvas.MoveTo(0,0); FBorda.Canvas.LineTo(0, Height - 1); FBorda.Canvas.MoveTo(0,0); FBorda.Canvas.LineTo(Width - 1, 0); FBorda.Canvas.MoveTo(Width - 1, Height - 1); FBorda.Canvas.LineTo(Width -1, 0); FBorda.Canvas.MoveTo(Width - 1, Height - 1); FBorda.Canvas.LineTo(0, Height - 1);end;bla bla bla...procedure TBmpEdit.WMPaint(var Message: TWMPaint);begin inherited; CreateBorder;end;

alguem tem alguma sujestao?!?!