procedure btnAllClick(Sender: TObject);
461 procedure TfrmGraphSettings.btnAllClick(Sender: TObject); 462 var 463 i: integer; 464 begin 465 for i := 0 to lstSources.Count - 1 do 466 lstSources.Checked[i] := (Sender = btnAll); 467 end;