Как сделать хранение многих палитр во внешних файлах?

const WorkPalette:String=' ваша рабочая палитра по умолчанию ';
 
Procedure SavePalette(PaletteFile:String);
{сохранить палитру в файл}
var  f:file;
begin
   Assign(f,PaletteFile);
   rewrite(f,1);
   BlockWrite(f,WorkPalette,SizeOf(String));
   close(f);
end;
 
Procedure LoadPalette(PaletteFile:String);
{ загрузить палитру из файла }
var  f:File;
begin
   Assign(f,s);
   reset(f,1);
   BlockRead(f,WorkPalette,SizeOf(String));
   close(f);
end;
 
Procedure SetAppPalette(PaletteFile:String);
{ загрузить и установить палитру }
begin
 LoadPalette(PaletteFile);
 Application^.GetPalette^:=WorkPalette;  {небольшой финт ушами ;))))}
{ эти две строчки необходимы для моментального отображения изменений в
  палитре, не ожидая по какое либо окно свернеться/развернеться}
 Application^.Redraw;
 Desktop^.Redraw;
end;