_colorPal.LoadPalette(curPal, piAll);
procedure TmainForm.fNameEditChange(Sender: TObject);begin FileListBox.FileName := fNameEdit.Text;end;