Tips Membuat Warna Aktif pada TEdit

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, GradPnl, dxCore, dxButtons, ExtCtrls, Variants;
type
TForm1 = class(TForm)
pnl2: TPanel;
btnSimpan: TdxButton;
btnBatal: TdxButton;
pnl1: TPanel;
GradientPanel1: TGradientPanel;
pnl3: TPanel;
lbl1: TLabel;
lbl2: TLabel;
lbl3: TLabel;
lbl7: TLabel;
lbl9: TLabel;
lbl10: TLabel;
lbl11: TLabel;
lbl5: TLabel;
lbl8: TLabel;
lbl6: TLabel;
lbl4: TLabel;
edt1: TEdit;
edt2: TEdit;
edt3: TEdit;
edt4: TEdit;
edt5: TEdit;
edt6: TEdit;
edt7: TEdit;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
procedure DoActiveControl(Sender: TObject);
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: [...]