Edit-Feld Einschwärzen per Checkbox?

[Pseudemys Nelsoni]

Delphi-Quellcode:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if checkbox1.Checked then
  Edit1.Color := clBlack
  else edit1.color := clWhite;
end;