Problem mit Listbox

[Pseudemys Nelsoni]

auch mit refresh geht es nicht.

ich mache das nur mit:

Delphi-Quellcode:

procedure TForm3.ToolButton10Click(Sender: TObject);
begin
  if FontDialog1.Execute then
  begin
    RichEdit1.Font := FontDialog1.Font;
    Edit1.Font := FontDialog1.Font;
    ListBox1.Font := FontDialog1.Font;
  end;
end;