Как заставить приложение показывать различные иконки при различных разрешениях дисплея?

Code:

Application.Initialize;

Application.CreateForm(TForm1, Form1);

case GetDeviceCaps(GetDC(Form1.Handle), HORZRES) of

640: Application.Icon.Handle := LoadIcon(hInstance, 'ICON640');

800: Application.Icon.Handle := LoadIcon(hInstance, 'ICON800');

1024: Application.Icon.Handle := LoadIcon(hInstance, 'ICON1024');

1280: Application.Icon.Handle := LoadIcon(hInstance, 'ICON1280');

end;

Application.Run;