procedure TForm1.Edit1KeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
begin
if Shift = [ssShift] then ShowMessage('Shift pressed');
if Shift = [ssAlt] then ShowMessage('Alt pressed');
if Shift = [ssCtrl] then ShowMessage('Ctrl pressed');
end;