Die OnClick-Methode liefert dir unter anderem auch den Parameter "Shift" mit. Schau dir da mal die OH zu TShiftState an 
\\edit: Oha, TImage tut dies nicht... sorry -> falsch
Nimm dann anstelle von OnClick besser OnMouseUp, da bekommste Shift mitgeliefert.
Fabian K.
INSERT INTO HandVonFreundin SELECT * FROM Himmel