Выделение в TEdit

[Devoto]

Как сделать так, чтобы нельзя было выделить мышью текст, находящийся в компоненте TEdit?

[KingOfNothing]

TEdit1.Enabled:=false;

[Devoto]

сенкс)) у мя еще один вопрос не в тему)) как сделать выравнивание TEdit по правому краю?

[KingOfNothing]

//наследование класса Едит - это в type
  TRightEdit = class(TEdit)
  protected
    procedure CreateParams(var Params: TCreateParams);override;
  end;

//изменение CreateParams - это в implementation
procedure TRightEdit.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.Style:=Params.Style or ES_RIGHT;
end;

//при создании формы
procedure TForm1.FormCreate(Sender: TObject);
begin
  pPointer(Edit1)^:=TRightEdit;  
  TRightEdit(Edit1).RecreateWnd;  
end;

P.S. здорово юзать гугл